modify human growth layout

app/ui.R

@@ -155,48 +155,44 @@ ui <- page_navbar(
       ),
       nav_panel(
         "Human Factors",
-        layout_columns(
+        layout_column_wrap(
-          col_widths = 6,
+          width = 1 / 2,
           layout_columns(
             col_widths = 12,
-
+            row_heights = c("auto", "1fr", "auto"),
             card(
+              fill = FALSE,
               sliderInput(
                 "growth_trend_map_slider",
                 label = NULL,
-                min = 1926,
+                min = 0,
                 max = 2024,
                 step = 1,
                 animate = list(
                   interval = 250,
                   loop = F
                 ),
-                value = 1926,
+                value = 0,
                 sep = "",
                 width = "100%",
                 ticks = F
               )
             ),
             card(
-              height = 500,
+              full_screen = TRUE,
               card_body(
                 class = "p-0",
-
                 leafletOutput("growth_map", height = "100%")
               )
             ),
             card(
-              fluidRow(
+              fill = FALSE,
-                column(
+              layout_columns(
-                  6,
                 selectInput(
                   "growth_trend_lf_select",
                   "Landfall Select",
                   choices = NULL
-                  )
                 ),
-                column(
-                  6,
                 radioGroupButtons(
                   "growth_map_metric",
                   label = "Display Metric",
@@ -205,8 +201,7 @@ ui <- page_navbar(
                   status = "outline-primary rounded-0",
                   justified = T
                 )
-                )
+              ),
-              )
             )
           )
         )