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

modify storm selector selected storm info

Browse Source
This commit is contained in:
dylan
2026-04-07 21:41:00 -04:00
parent 3d87a5b07d
commit d365036eb9
2 changed files with 91 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/server.R
+45 -5
View File
@@ -27,6 +27,10 @@ server <- function(input, output, session) {
select(1, 2, data)
}
output$dt_storm_badges <- renderUI({
div(HTML(dt_storm_selected()$data))
})
output$storm_coverage_table <- renderDT({
datatable(
storm_coverage,
@@ -52,12 +56,48 @@ server <- function(input, output, session) {
})
output$dt_storm_name_year <- renderText({
paste0(
dt_storm_selected()$storm_name,
" (",
dt_storm_selected()$storm_year,
")"
if (is.null(input$storm_coverage_table_rows_selected)) {
"Select a storm"
} else {
paste0(
dt_storm_selected()$storm_name,
" (",
dt_storm_selected()$storm_year,
")"
)
}
})
best_track_summary <- reactive({
req(input$storm_coverage_table_rows_selected)
storm <- list(
storm_basin = "AL",
storm_year = dt_storm_selected()$storm_year,
storm_name = dt_storm_selected()$storm_name
)
get_best_track_summary(storm)
})
normalized_loss_summary <- reactive({
req(input$storm_coverage_table_rows_selected)
storm <- list(
storm_year = dt_storm_selected()$storm_year,
storm_name = dt_storm_selected()$storm_name
)
get_latest_aggregate_loss(storm)
})
output$dt_mmh_loss <- renderText({
normalized_loss_summary()$mmh
#dollar(
# normalized_loss_summary()$mmh,
# prefix = "$",
# scale_cut = cut_short_scale()
#)
})
output$selected_storm_name_year <- renderText({
app/ui.R
+46 -10
View File
@@ -56,22 +56,58 @@ ui <- page_navbar(
layout_columns(
col_widths = 12,
card(
height = 250,
h4(strong(textOutput("dt_storm_name_year"))),
p("Category X - Landfall: FL"),
div(),
hr(),
height = 300,
div(
h5(strong(textOutput("dt_storm_name_year"))),
uiOutput("dt_storm_badges")
),
layout_columns(
col_widths = c(6, 6),
div(),
div(),
div(),
div()
card(
class = "bg-light",
card_body(
class = "p-1",
div(
div(tags$small(class = "text-muted", "MMH23 Loss")),
#div(textOutput("dt_mmh_loss"))
)
)
),
card(
class = "bg-light",
card_body(
class = "p-1",
div(
div(tags$small(class = "text-muted", "Direct Deaths")),
div("hi")
)
)
),
card(
class = "bg-light",
card_body(
class = "p-1",
div(
div(tags$small(class = "text-muted", "Max Category")),
div("hi")
)
)
),
card(
class = "bg-light",
card_body(
class = "p-1",
div(
div(tags$small(class = "text-muted", "Track Observations")),
div("hi")
)
)
)
),
actionButton("load_storm", "Load Storm")
),
card(
height = 750,
height = 700,
card_body(
class = "p-0",
leafletOutput("all_storms_map", height = "100%")