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,