From e867ad2a603875d33a798c9472a7da86c5e38167 Mon Sep 17 00:00:00 2001 From: dylanbenzi Date: Mon, 7 Jul 2025 19:00:03 -0400 Subject: [PATCH] add tabs to growth map --- dashboard.Rmd | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/dashboard.Rmd b/dashboard.Rmd index f043726..7b6a652 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -148,7 +148,7 @@ HTML( '

Welcome to the Hurricane Cost Normalization Web App!

-

Our platform provides access to normalized hurricane dama data spanning from 1900 to 2024, allowing researchers, policymakers, insurance professional, and the public to better understand how hurricane costs have changed over time.

+

Our platform provides access to normalized hurricane damage data spanning from 1900 to 2024, allowing researchers, policymakers, insurance professional, and the public to better understand how hurricane costs have changed over time.

Our Data
@@ -450,10 +450,11 @@ DTOutput("landfalls_table") Growth Trends {data-navmenu="Storm Details"} ================================ -Column {data-width=550} +Column {data-width=550 .tabset} ------------------------------- -### Map Year {data-height=100} +### Growth Map {.no-padding} + ```{r} observe({ req(storm_selection$is_selected) @@ -464,12 +465,6 @@ observe({ value = storm_selection$storm_year) }) -sliderInput("growth_trend_map_slider", label = NULL, min = 1900, max = 2024, step = 1, animate = T, value = 1700, sep = "", width = "100%", ticks = F) -``` - -### {data-height=900 .no-padding} - -```{r} #storm_metrics_growth_geom <- reactive({ @@ -565,12 +560,19 @@ observe({ }) fillCol( - flex = c(1, 1), + flex = c(.1, .45, .45), + sliderInput("growth_trend_map_slider", label = NULL, min = 1900, max = 2024, step = 1, animate = T, value = 1700, sep = "", width = "90%", ticks = F), leafletOutput("pop_growth_map"), leafletOutput("housing_growth_map") ) ``` +### Growth Data {.no-padding} +```{r} + + +``` + Column {data-width=450} ----------------------------------