update loss storm year selector

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,