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

update map controls

Browse Source
This commit is contained in:
dylan
2025-10-31 11:51:46 -04:00
parent 7cf49fec0f
commit 69b6f32002
1 changed files with 17 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+17 -19
View File
@@ -887,13 +887,22 @@ leafletOutput("growth_map", height = "100%")
### Map Control {data-height=200} ### Map Control {data-height=200}
```{r} ```{r}
radioGroupButtons( fluidRow(
"growth_map_metric", column(
label = "Display Metric", 6,
choices = c("Population", "Housing"), selectInput("growth_trend_lf_select", "Landfall Select", choices = NULL)
selected = "Population", ),
status = "outline-primary rounded-0", column(
justified = T 6,
radioGroupButtons(
"growth_map_metric",
label = "Display Metric",
choices = c("Population", "Housing"),
selected = "Population",
status = "outline-primary rounded-0",
justified = T
)
)
) )
``` ```
@@ -903,19 +912,8 @@ Column {data-width=450}
### Landfall Growth {data-height=550} ### Landfall Growth {data-height=550}
```{r} ```{r}
# Growth - Trend Chart # Growth - Trend Chart
# TODO: add chart and chart controls
fillCol( dygraphOutput("test_dy")
flex = c(.2, .8),
fluidRow(
column(
6,
selectInput("growth_trend_lf_select", "Landfall Select", choices = NULL)
),
column(6, )
),
dygraphOutput("test_dy")
)
output$test_dy <- renderDygraph({ output$test_dy <- renderDygraph({
req(growth_counties) req(growth_counties)