fix dt table width

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,

app/ui.R

@@ -49,7 +49,9 @@ ui <- page_navbar(
     layout_columns(
       col_widths = c(8, 4),
       card(
+        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)
             )
           )
         )