From 8442e6d6bd77b903c771124097b7f9ff51948273 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Fri, 6 Jun 2025 02:08:18 -0400
Subject: [PATCH] add slider for growth trends map

---
 dashboard.Rmd | 51 +++++++++++++++++++++++----------------------------
 1 file changed, 23 insertions(+), 28 deletions(-)

diff --git a/dashboard.Rmd b/dashboard.Rmd
index ead7131..e4e97f2 100644
--- a/dashboard.Rmd
+++ b/dashboard.Rmd
@@ -774,7 +774,13 @@ Growth Trends {data-navmenu="Storm Details"}
 Column {data-width=550}
 -------------------------------
 
-### {data-height=1000 .no-padding}
+### Map Year {data-height=100}
+```{r}
+sliderInput("growth_trend_map_year", label = NULL, min = 2005, max = 2024, step = 1, animate = T, value = 2005, sep = "", width = "100%", ticks = F)
+
+```
+
+### {data-height=900 .no-padding}
 
 ```{r}
 dbStormCounties <- reactive({
@@ -813,28 +819,28 @@ dbStormCounties <- reactive({
 })
 
 output$popMapPoly <- renderLeaflet({
-  leaflet(dbStormCounties()) %>% 
+  leaflet() %>% 
     addProviderTiles("CartoDB.Positron", option = providerTileOptions(minZoom = 2, maxZoom = 18)) %>% 
-    setView(lng = -89.8, lat = 29.6, zoom = 8) %>% 
-    addPolygons(
-      fillColor = "red",
-      fillOpacity = 0.3,
-      color = "black", 
-      weight = 2
-    )
+    setView(lng = -89.8, lat = 29.6, zoom = 8) #%>% 
+    #addPolygons(
+    #  fillColor = "red",
+    #  fillOpacity = 0.3,
+    #  color = "black", 
+    #  weight = 2
+    #)
 })
 
 output$housingMapPoly <- renderLeaflet({
   leaflet() %>% 
     addProviderTiles("CartoDB.Positron", option = providerTileOptions(minZoom = 2, maxZoom = 18)) %>% 
-    setView(lng = -89.8, lat = 29.6, zoom = 8) %>% 
-    addPolygons(
-      data = dbStormCounties(),
-      fillColor = "blue",
-      fillOpacity = 0.3,
-      color = "black", 
-      weight = 2
-    )
+    setView(lng = -89.8, lat = 29.6, zoom = 8) #%>% 
+    #addPolygons(
+    #  data = dbStormCounties(),
+    #  fillColor = "blue",
+    #  fillOpacity = 0.3,
+    #  color = "black", 
+    #  weight = 2
+    #)
 })
 
 fillCol(
@@ -850,17 +856,6 @@ Column {data-width=450}
 
 ### Landfall Selection {data-height=550}
 ```{r}
-#observe({
-#  req(storm_overview_reactive$full_lf_id)
-#  
-#  updateSelectInput(
-#    session,
-#    "storm_overview_cost_index_lf", 
-#    choices = storm_unique_landfalls()$full_lf_id,
-#    selected = storm_overview_reactive$full_lf_id
-#  )
-#})
-
 normalized_growth_metrics_lf_ts <- reactive ({
   req(growth_trends$full_lf_id)