From 669a8c7ad4d20f50cdfc576a95b9b98eca5f60d0 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Wed, 4 Jun 2025 15:13:43 -0400
Subject: [PATCH] update loss storm year selector

---
 dashboard.Rmd | 39 ++++++++++++++++++---------------------
 1 file changed, 18 insertions(+), 21 deletions(-)

diff --git a/dashboard.Rmd b/dashboard.Rmd
index c203cb7..2aba272 100644
--- a/dashboard.Rmd
+++ b/dashboard.Rmd
@@ -197,6 +197,22 @@ public.counties <- tbl(con, I("public.counties"))
 
 ### COMMONLY USED DATA
 
+loss_storms <- econ.storm_base_loss %>% 
+  select(
+    storm_basin, storm_year, storm_name
+  ) %>% 
+  distinct(
+    storm_basin, storm_year, storm_name
+  ) %>% 
+  left_join(
+    hurdat.hurdat_storms %>%
+    mutate(hurdatId = paste0(storm_basin, storm_number, storm_year)), 
+    by = c("storm_basin", "storm_year", "storm_name")) %>% 
+  select(
+    hurdatId, storm_name, storm_year
+  ) %>% 
+  collect()
+
 base_losses_by_lf <- econ.storm_base_loss %>% 
   filter(!is.na(base_loss)) %>% 
   mutate(
@@ -379,29 +395,10 @@ Col {data-width=500}
 
 ### Storm Selector {data-height=500}
 ```{r}
-
-loss_storms <- econ.storm_base_loss %>% 
-  select(
-    storm_basin, storm_year, storm_name
-  ) %>% 
-  distinct(
-    storm_basin, storm_year, storm_name
-  ) %>% 
-  left_join(
-    hurdat.hurdat_storms %>%
-    mutate(hurdatId = paste0(storm_basin, storm_number, storm_year)), 
-    by = c("storm_basin", "storm_year", "storm_name")) %>% 
-  select(
-    hurdatId, storm_name, storm_year
-  ) %>% 
-  collect()
-
-dbStormYears <- dbGetQuery(con, "SELECT DISTINCT storm_year, storm_name FROM econ.storm_base_loss ORDER BY storm_year")
-
 fluidRow(
   column(6, 
          h5("Select Storm Name and Year"),
-         selectInput("stormYear", "Select Year", choices = dbStormYears$storm_year),
+         selectInput("stormYear", "Select Year", choices = loss_storms$storm_year),
          selectInput("stormName", "Select Storm", choices = NULL),
          actionButton("selectStorm", "Submit", class = "btn-primary")
   ),
@@ -429,7 +426,7 @@ output$storm_selector_table <- renderDT({
 })
 
 observeEvent(input$stormYear, {
-  stormsByChosenYear <- dbStormYears[dbStormYears$storm_year == input$stormYear, ]
+  stormsByChosenYear <- loss_storms[loss_storms$storm_year == input$stormYear, ]
   
   updateSelectInput(session, "stormName", 
                     choices = stormsByChosenYear$storm_name,