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( nav_panel(
"Human Factors", "Human Factors",
layout_columns( layout_column_wrap(
col_widths = 6, width = 1 / 2,
layout_columns( layout_columns(
col_widths = 12, col_widths = 12,
row_heights = c("auto", "1fr", "auto"),
card( card(
fill = FALSE,
sliderInput( sliderInput(
"growth_trend_map_slider", "growth_trend_map_slider",
label = NULL, label = NULL,
min = 1926, min = 0,
max = 2024, max = 2024,
step = 1, step = 1,
animate = list( animate = list(
interval = 250, interval = 250,
loop = F loop = F
), ),
value = 1926, value = 0,
sep = "", sep = "",
width = "100%", width = "100%",
ticks = F ticks = F
) )
), ),
card( card(
height = 500, full_screen = TRUE,
card_body( card_body(
class = "p-0", class = "p-0",
leafletOutput("growth_map", height = "100%") leafletOutput("growth_map", height = "100%")
) )
), ),
card( card(
fluidRow( fill = FALSE,
column( layout_columns(
6, selectInput(
selectInput( "growth_trend_lf_select",
"growth_trend_lf_select", "Landfall Select",
"Landfall Select", choices = NULL
choices = NULL
)
), ),
column( radioGroupButtons(
6, "growth_map_metric",
radioGroupButtons( label = "Display Metric",
"growth_map_metric", choices = c("Population", "Housing"),
label = "Display Metric", selected = "Population",
choices = c("Population", "Housing"), status = "outline-primary rounded-0",
selected = "Population", justified = T
status = "outline-primary rounded-0",
justified = T
)
) )
) ),
) )
) )
) )