dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-29 21:01:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

add log scale to normalization chart

Browse Source
This commit is contained in:
dylan
2025-07-19 16:49:47 -04:00
parent b0c93563f5
commit b21b814b1d
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+12 -8
View File
@@ -346,7 +346,14 @@ output$cost_index_chart <- renderDygraph({
req(storm_yearly_normalization,
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_scale,
input$storm_overview_cost_index_y_scale)
if(input$storm_overview_cost_index_y_scale == "Log") {
is_y_log <- T
}else{
is_y_log <- F
}
normalized_data <- storm_yearly_normalization() %>%
rename(
@@ -396,7 +403,8 @@ output$cost_index_chart <- renderDygraph({
colors = paletteer_d("ggthemes::Classic_Purple_Gray_12", ncol(normalization_index - 1)),
fillGraph = T,
fillAlpha = .2,
labelsKMB = T,
logscale = is_y_log
) %>%
dyAxis("x", drawGrid = F) %>%
dyRangeSelector()
@@ -406,17 +414,13 @@ fluidRow(
style = "height: 100%",
column(3,
virtualSelectInput("storm_overview_cost_index_lf_select", "Landfalls",
#choices = list(
# "LF" = c("LF1", "LF2", "LF3"),
# "DIL" = c("DIL1", "DIL2", "DIL3", "DIL4"),
# "ID" = c("ID1", "ID2", "ID3", "ID4")
#),
choices = NULL,
showValueAsTags = T,
multiple = T,
autoSelectFirstOption = T),
radioGroupButtons("storm_overview_cost_index_scale", label = "Value", choices = c("Index", "Loss"), status = "outline-primary rounded-0", justified = T),
checkboxGroupButtons("storm_overview_cost_index_mmh_mmp", label = "MMH/MMP", choices = c("MMH", "MMP"), selected = c("MMH", "MMP"), status = "outline-primary rounded-0", justified = T)
checkboxGroupButtons("storm_overview_cost_index_mmh_mmp", label = "MMH/MMP", choices = c("MMH", "MMP"), selected = c("MMH", "MMP"), status = "outline-primary rounded-0", justified = T),
radioGroupButtons("storm_overview_cost_index_y_scale", label = "Y-Axis Scale", choices = c("Linear", "Log"), status = "outline-primary rounded-0", justified = T)
),
column(9,
dygraphOutput("cost_index_chart")