From 69b6f32002ad920df2ab668974c4a4bb1aeb6887 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Fri, 31 Oct 2025 11:51:46 -0400
Subject: [PATCH] update map controls

---
 dashboard.Rmd | 36 +++++++++++++++++-------------------
 1 file changed, 17 insertions(+), 19 deletions(-)

diff --git a/dashboard.Rmd b/dashboard.Rmd
index 16c0a18..047e291 100644
--- a/dashboard.Rmd
+++ b/dashboard.Rmd
@@ -887,13 +887,22 @@ leafletOutput("growth_map", height = "100%")
 
 ### Map Control {data-height=200}
 ```{r}
-radioGroupButtons(
-  "growth_map_metric",
-  label = "Display Metric",
-  choices = c("Population", "Housing"),
-  selected = "Population",
-  status = "outline-primary rounded-0",
-  justified = T
+fluidRow(
+  column(
+    6,
+    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
+    )
+  )
 )
 ```
 
@@ -903,19 +912,8 @@ Column {data-width=450}
 ### Landfall Growth {data-height=550}
 ```{r}
 # Growth - Trend Chart
-# TODO: add chart and chart controls
 
-fillCol(
-  flex = c(.2, .8),
-  fluidRow(
-    column(
-      6,
-      selectInput("growth_trend_lf_select", "Landfall Select", choices = NULL)
-    ),
-    column(6, )
-  ),
-  dygraphOutput("test_dy")
-)
+dygraphOutput("test_dy")
 
 output$test_dy <- renderDygraph({
   req(growth_counties)