diff --git a/app/server.R b/app/server.R index 6c64417..25e2955 100644 --- a/app/server.R +++ b/app/server.R @@ -24,6 +24,7 @@ server <- function(input, output, session) { output$storm_coverage_table <- renderDT({ datatable( storm_coverage, + fillContainer = TRUE, rownames = F, escape = F, colnames = c("Year", "Name", "Data"), @@ -440,6 +441,7 @@ server <- function(input, output, session) { output$track_data <- renderDT({ datatable( + fillContainer = TRUE, storm_track() %>% select( formatted_datetime, diff --git a/app/ui.R b/app/ui.R index eebe898..abc500b 100644 --- a/app/ui.R +++ b/app/ui.R @@ -49,7 +49,9 @@ ui <- page_navbar( layout_columns( col_widths = c(8, 4), card( - DTOutput("storm_coverage_table") + card_body( + DTOutput("storm_coverage_table") + ) ), layout_columns( col_widths = 12, @@ -94,8 +96,7 @@ ui <- page_navbar( ), card( card_body( - class = "p-0", - DTOutput("track_data", height = "100%") + DTOutput("track_data", fill = TRUE) ) ) )