From 5b7aa0fc9a3314f2a41207579c51a12cf3803bb7 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Mon, 6 Apr 2026 02:02:00 -0400
Subject: [PATCH] modify human growth layout

---
 app/ui.R | 47 +++++++++++++++++++++--------------------------
 1 file changed, 21 insertions(+), 26 deletions(-)

diff --git a/app/ui.R b/app/ui.R
index abc500b..51e1517 100644
--- a/app/ui.R
+++ b/app/ui.R
@@ -155,58 +155,53 @@ ui <- page_navbar(
       ),
       nav_panel(
         "Human Factors",
-        layout_columns(
-          col_widths = 6,
+        layout_column_wrap(
+          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(
-                column(
-                  6,
-                  selectInput(
-                    "growth_trend_lf_select",
-                    "Landfall Select",
-                    choices = NULL
-                  )
+              fill = FALSE,
+              layout_columns(
+                selectInput(
+                  "growth_trend_lf_select",
+                  "Landfall Select",
+                  choices = NULL
                 ),
-                column(
-                  6,
-                  radioGroupButtons(
-                    "growth_map_metric",
-                    label = "Display Metric",
-                    choices = c("Population", "Housing"),
-                    selected = "Population",
-                    status = "outline-primary rounded-0",
-                    justified = T
-                  )
+                radioGroupButtons(
+                  "growth_map_metric",
+                  label = "Display Metric",
+                  choices = c("Population", "Housing"),
+                  selected = "Population",
+                  status = "outline-primary rounded-0",
+                  justified = T
                 )
-              )
+              ),
             )
           )
         )