dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-30 05:08:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

update loss storm year selector

Browse Source
This commit is contained in:
dylan
2025-06-04 15:13:43 -04:00
parent 6f7376c693
commit 669a8c7ad4
1 changed files with 18 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+18 -21
View File
@@ -197,6 +197,22 @@ public.counties <- tbl(con, I("public.counties"))
### COMMONLY USED DATA ### 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 %>% base_losses_by_lf <- econ.storm_base_loss %>%
filter(!is.na(base_loss)) %>% filter(!is.na(base_loss)) %>%
mutate( mutate(
@@ -379,29 +395,10 @@ Col {data-width=500}
### Storm Selector {data-height=500} ### Storm Selector {data-height=500}
```{r} ```{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( fluidRow(
column(6, column(6,
h5("Select Storm Name and Year"), 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), selectInput("stormName", "Select Storm", choices = NULL),
actionButton("selectStorm", "Submit", class = "btn-primary") actionButton("selectStorm", "Submit", class = "btn-primary")
), ),
@@ -429,7 +426,7 @@ output$storm_selector_table <- renderDT({
}) })
observeEvent(input$stormYear, { observeEvent(input$stormYear, {
stormsByChosenYear <- dbStormYears[dbStormYears$storm_year == input$stormYear, ] stormsByChosenYear <- loss_storms[loss_storms$storm_year == input$stormYear, ]
updateSelectInput(session, "stormName", updateSelectInput(session, "stormName",
choices = stormsByChosenYear$storm_name, choices = stormsByChosenYear$storm_name,