diff --git a/dashboard.Rmd b/dashboard.Rmd index 9892415..f9d11c5 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -774,14 +774,11 @@ DTOutput("track_data") Growth Trends {data-navmenu="Storm Details"} ================================ -Column {data-width=550 .tabset} +Column {data-width=550} ------------------------------- -### Growth Map {.no-padding} - +### Growth Year {data-height=100} ```{r} -# Growth - Growth Map -# TODO: implement data loading observe({ req(storm_selection$is_selected) @@ -794,6 +791,29 @@ observe({ ) }) +sliderInput( + "growth_trend_map_slider", + label = NULL, + min = 1926, + max = 2024, + step = 1, + animate = list( + interval = 250, + loop = F + ), + value = 1926, + sep = "", + width = "100%", + ticks = F +) +``` + +### Growth Map {data-height=700 .no-padding} + +```{r} +# Growth - Growth Map +# TODO: implement data loading + growth_counties <- reactive({ req( storm_selection$is_selected, @@ -865,41 +885,12 @@ observe({ ) }) -fillCol( - flex = c(.1, .45, .45), - div( - style = " - padding-left: 15px; - padding-right: 15px; - padding-top: 15px; - display: flex; - justify-content: center; - align-itmes: center; - ", - sliderInput( - "growth_trend_map_slider", - label = NULL, - min = 1926, - max = 2024, - step = 1, - animate = list( - interval = 250, - loop = F - ), - value = 1926, - sep = "", - width = "100%", - ticks = F - ) - ), - leafletOutput("pop_growth_map", height = "100%"), - leafletOutput("housing_growth_map", height = "100%") -) +leafletOutput("housing_growth_map", height = "100%") ``` -### Growth Data {.no-padding} +### Map Control {data-height=200} ```{r} -# Growth - Growth Data + ``` Column {data-width=450}