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

add proper caching for cost normalization graph

Browse Source
This commit is contained in:
dylan
2025-12-26 21:41:52 -05:00
parent a9afc1d548
commit bdb51cf064
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/dashboard.Rmd
+11 -3
View File
@@ -128,7 +128,7 @@ fluidRow(
column( column(
6, 6,
div( div(
selectInput("stormBasin", "Basin", choices = "AL", width = "100%"), #selectInput("stormBasin", "Basin", choices = "AL", width = "100%"),
selectInput( selectInput(
"stormYear", "stormYear",
"Year", "Year",
@@ -174,7 +174,7 @@ observeEvent(input$stormYear, {
}) })
observeEvent(input$selectStorm, { observeEvent(input$selectStorm, {
storm_selection$storm_basin <- input$stormBasin storm_selection$storm_basin <- "AL"
storm_selection$storm_year <- input$stormYear storm_selection$storm_year <- input$stormYear
storm_selection$storm_name <- input$stormName storm_selection$storm_name <- input$stormName
#storm_selection$is_selected <- TRUE #storm_selection$is_selected <- TRUE
@@ -636,7 +636,15 @@ output$cost_index_chart <- renderDygraph({
dyLegend(show = "always", width = 400, hideOnMouseOut = FALSE) %>% dyLegend(show = "always", width = 400, hideOnMouseOut = FALSE) %>%
dyRangeSelector() dyRangeSelector()
}) %>% }) %>%
bindCache(storm_selection$storm_year, storm_selection$storm_name, storm_selection$storm_basin) bindCache(
storm_selection$storm_year,
storm_selection$storm_name,
storm_selection$storm_basin,
input$storm_overview_cost_index_lf_select,
input$storm_overview_cost_index_mmh_mmp,
input$storm_overview_cost_index_scale,
input$storm_overview_cost_index_y_scale
)
hurdat_landfalls <- reactive({ hurdat_landfalls <- reactive({
req(storm_selection$storm_basin, storm_selection$storm_year, storm_selection$storm_name) req(storm_selection$storm_basin, storm_selection$storm_year, storm_selection$storm_name)