Merge branch '08022025_county_growth'

dashboard.Rmd

@@ -773,14 +773,11 @@ DTOutput("track_data")
 Growth Trends {data-navmenu="Storm Details"}
 ================================
 
-Column {data-width=550 .tabset}
+Column {data-width=550}
 -------------------------------
 
-### Growth Map {.no-padding}
-
+### Growth Year {data-height=100}
 ```{r}
-# Growth - Growth Map
-# TODO: implement data loading
 
 observe({
   req(storm_selection$is_selected)
@@ -793,6 +790,29 @@ observe({
   )
 })
 
+sliderInput(
+  "growth_trend_map_slider",
+  label = NULL,
+  min = 1926,
+  max = 2024,
+  step = 1,
+  animate = list(
+    interval = 250,
+    loop = F
+  ),
+  value = 1926,
+  sep = "",
+  width = "100%",
+  ticks = F
+)
+```
+
+### Growth Map {data-height=700 .no-padding}
+
+```{r}
+# Growth - Growth Map
+# TODO: implement data loading
+
 growth_counties <- reactive({
   req(
     storm_selection$is_selected,
@@ -864,41 +884,12 @@ observe({
     )
 })
 
-fillCol(
-  flex = c(.1, .45, .45),
-  div(
-    style = "
-      padding-left: 15px;
-      padding-right: 15px;
-      padding-top: 15px;
-      display: flex;
-      justify-content: center;
-      align-itmes: center;
-    ",
-    sliderInput(
-      "growth_trend_map_slider",
-      label = NULL,
-      min = 1926,
-      max = 2024,
-      step = 1,
-      animate = list(
-        interval = 250,
-        loop = F
-      ),
-      value = 1926,
-      sep = "",
-      width = "100%",
-      ticks = F
-    )
-  ),
-  leafletOutput("pop_growth_map", height = "100%"),
-  leafletOutput("housing_growth_map", height = "100%")
-)
+leafletOutput("housing_growth_map", height = "100%")
 ```
 
-### Growth Data {.no-padding}
+### Map Control {data-height=200}
 ```{r}
-# Growth - Growth Data
+
 ```
 
 Column {data-width=450}