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
+9 -11
View File
@@ -887,6 +887,13 @@ leafletOutput("growth_map", height = "100%")
### Map Control {data-height=200} ### Map Control {data-height=200}
```{r} ```{r}
fluidRow(
column(
6,
selectInput("growth_trend_lf_select", "Landfall Select", choices = NULL)
),
column(
6,
radioGroupButtons( radioGroupButtons(
"growth_map_metric", "growth_map_metric",
label = "Display Metric", label = "Display Metric",
@@ -895,6 +902,8 @@ radioGroupButtons(
status = "outline-primary rounded-0", status = "outline-primary rounded-0",
justified = T justified = T
) )
)
)
``` ```
Column {data-width=450} Column {data-width=450}
@@ -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(
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({ output$test_dy <- renderDygraph({
req(growth_counties) req(growth_counties)