dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-29 21:01:27 +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}
```{r}
radioGroupButtons(
"growth_map_metric",
label = "Display Metric",
choices = c("Population", "Housing"),
selected = "Population",
status = "outline-primary rounded-0",
justified = T
fluidRow(
column(
6,
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
)
)
)
```
@@ -903,19 +912,8 @@ Column {data-width=450}
### Landfall Growth {data-height=550}
```{r}
# Growth - Trend Chart
# TODO: add chart and chart controls
fillCol(
flex = c(.2, .8),
fluidRow(
column(
6,
selectInput("growth_trend_lf_select", "Landfall Select", choices = NULL)
),
column(6, )
),
dygraphOutput("test_dy")
)
dygraphOutput("test_dy")
output$test_dy <- renderDygraph({
req(growth_counties)