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

fix growth map and restructure storm explorer cards

Browse Source
This commit is contained in:
dylan
2026-04-07 23:48:22 -04:00
parent b69812942c
commit 4b3901ff29
2 changed files with 28 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/ui.R
+27 -30
View File
@@ -140,7 +140,6 @@ ui <- page_navbar(
)
),
card(
card_header("Meteorology"),
dygraphOutput("track_met_chart", height = "250px")
)
)
@@ -149,8 +148,8 @@ ui <- page_navbar(
),
nav_panel(
"Cost Normalization",
layout_columns(
col_widths = 6,
layout_column_wrap(
col_widths = 1,
card(
"MMH/MMP Normalization",
div(
@@ -193,8 +192,6 @@ ui <- page_navbar(
)
)
),
card(),
card(),
card()
)
),
@@ -205,31 +202,6 @@ ui <- page_navbar(
layout_columns(
col_widths = 12,
row_heights = c("auto", "1fr", "auto"),
card(
fill = FALSE,
sliderInput(
"growth_trend_map_slider",
label = NULL,
min = 0,
max = 2024,
step = 1,
animate = list(
interval = 250,
loop = F
),
value = 0,
sep = "",
width = "100%",
ticks = F
)
),
card(
full_screen = TRUE,
card_body(
class = "p-0",
leafletOutput("growth_map", height = "100%")
)
),
card(
fill = FALSE,
layout_columns(
@@ -247,6 +219,31 @@ ui <- page_navbar(
justified = T
)
),
),
card(
full_screen = TRUE,
card_body(
class = "p-0",
leafletOutput("growth_map", height = "100%")
)
),
card(
fill = FALSE,
sliderInput(
"growth_trend_map_slider",
label = NULL,
min = 0,
max = 2024,
step = 1,
animate = list(
interval = 250,
loop = F
),
value = 0,
sep = "",
width = "100%",
ticks = F
)
)
)
)