add tabs to growth map

dashboard.Rmd

@@ -148,7 +148,7 @@ HTML(
   '
   <h4>Welcome to the Hurricane Cost Normalization Web App!</h4>
   
-  <p>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.</p>
+  <p>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.</p>
   
   <h6>Our Data</h6>
   
@@ -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}
 ----------------------------------