add storm metric summary in storm selector

This commit is contained in:
2026-04-08 13:55:25 -04:00
parent ae5fbcb0af
commit 93961e2a6c
2 changed files with 89 additions and 29 deletions
+15 -15
View File
@@ -68,18 +68,8 @@ ui <- page_navbar(
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")
div(tags$small(class = "text-muted", "Track Observations")),
h6(strong(textOutput("dt_track_observations")))
)
)
),
@@ -89,7 +79,7 @@ ui <- page_navbar(
class = "p-1",
div(
div(tags$small(class = "text-muted", "Max Category")),
div("hi")
h6(strong(textOutput("dt_max_category")))
)
)
),
@@ -98,8 +88,18 @@ ui <- page_navbar(
card_body(
class = "p-1",
div(
div(tags$small(class = "text-muted", "Track Observations")),
div("hi")
div(tags$small(class = "text-muted", "Max Windspeed")),
h6(strong(textOutput("dt_max_windspeed")))
)
)
),
card(
class = "bg-light",
card_body(
class = "p-1",
div(
div(tags$small(class = "text-muted", "Min Pressure")),
h6(strong(textOutput("dt_min_pressure")))
)
)
)