add pressure/windspeed chart with status shading

This commit is contained in:
2026-04-07 21:53:04 -04:00
parent d365036eb9
commit a5614049d7
2 changed files with 55 additions and 11 deletions
+21 -11
View File
@@ -122,17 +122,27 @@ ui <- page_navbar(
nav_item(strong(textOutput("selected_storm_name_year"))),
nav_panel(
"Track",
layout_column_wrap(
card(
full_screen = TRUE,
card_body(
class = "p-0",
leafletOutput("track_map", height = "100%")
)
),
card(
card_body(
DTOutput("track_data", fill = TRUE)
layout_columns(
col_widths = 12,
layout_column_wrap(
card(
full_screen = TRUE,
card_body(
class = "p-0",
leafletOutput("track_map", height = "100%")
)
),
layout_column_wrap(
width = 1,
card(
card_body(
DTOutput("track_data", fill = TRUE)
)
),
card(
card_header("Meteorology"),
dygraphOutput("track_met_chart", height = "250px")
)
)
)
)