From 933fe72b01dafcee8386b5143767552bfda96df0 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Mon, 6 Apr 2026 01:36:00 -0400
Subject: [PATCH] fix dt table width

---
 app/server.R | 2 ++
 app/ui.R     | 7 ++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

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)
             )
           )
         )