add 100% height to all leaflet maps

This commit is contained in:
2025-07-14 22:14:20 -04:00
parent bfdba95c4a
commit 3efbf9abf3
+4 -4
View File
@@ -585,8 +585,8 @@ fillCol(
", ",
sliderInput("growth_trend_map_slider", label = NULL, min = 1900, max = 2024, step = 1, animate = T, value = 1700, sep = "", width = "100%", ticks = F) sliderInput("growth_trend_map_slider", label = NULL, min = 1900, max = 2024, step = 1, animate = T, value = 1700, sep = "", width = "100%", ticks = F)
), ),
leafletOutput("pop_growth_map"), leafletOutput("pop_growth_map", height = "100%"),
leafletOutput("housing_growth_map") leafletOutput("housing_growth_map", height = "100%")
) )
``` ```
@@ -650,7 +650,7 @@ output$impact_analysis_map <- renderLeaflet({
# %>% setView(lng = -89.8, lat = 29.6, zoom = 8) # %>% setView(lng = -89.8, lat = 29.6, zoom = 8)
}) })
leafletOutput("impact_analysis_map") leafletOutput("impact_analysis_map", height = "100%")
``` ```
### Impact Data {.no-padding} ### Impact Data {.no-padding}
@@ -1043,7 +1043,7 @@ output$all_storms_map <- renderLeaflet({
) )
}) })
leafletOutput("all_storms_map") leafletOutput("all_storms_map", height = "100%")
``` ```
Fatalities {data-navmenu="All Storms"} Fatalities {data-navmenu="All Storms"}