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 human growth layout

Browse Source
This commit is contained in:
dylan
2026-04-06 02:02:00 -04:00
parent 933fe72b01
commit 5b7aa0fc9a
1 changed files with 21 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/ui.R
+21 -26
View File
@@ -155,58 +155,53 @@ ui <- page_navbar(
),
nav_panel(
"Human Factors",
layout_columns(
col_widths = 6,
layout_column_wrap(
width = 1 / 2,
layout_columns(
col_widths = 12,
row_heights = c("auto", "1fr", "auto"),
card(
fill = FALSE,
sliderInput(
"growth_trend_map_slider",
label = NULL,
min = 1926,
min = 0,
max = 2024,
step = 1,
animate = list(
interval = 250,
loop = F
),
value = 1926,
value = 0,
sep = "",
width = "100%",
ticks = F
)
),
card(
height = 500,
full_screen = TRUE,
card_body(
class = "p-0",
leafletOutput("growth_map", height = "100%")
)
),
card(
fluidRow(
column(
6,
selectInput(
"growth_trend_lf_select",
"Landfall Select",
choices = NULL
)
fill = FALSE,
layout_columns(
selectInput(
"growth_trend_lf_select",
"Landfall Select",
choices = NULL
),
column(
6,
radioGroupButtons(
"growth_map_metric",
label = "Display Metric",
choices = c("Population", "Housing"),
selected = "Population",
status = "outline-primary rounded-0",
justified = T
)
radioGroupButtons(
"growth_map_metric",
label = "Display Metric",
choices = c("Population", "Housing"),
selected = "Population",
status = "outline-primary rounded-0",
justified = T
)
)
),
)
)
)