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 provider tiles

Browse Source
This commit is contained in:
dylan
2025-07-20 20:46:57 -04:00
parent e5d73c8e5b
commit 84664303ef
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+6 -4
View File
@@ -522,12 +522,14 @@ test_counties <- reactive({
output$pop_growth_map <- renderLeaflet({
leaflet() %>%
addProviderTiles("CartoDB.Positron", option = providerTileOptions(minZoom = 2, maxZoom = 18)) %>% setView(lng = -81.3, lat = 25.6, zoom = 7)
addProviderTiles("Stadia.AlidadeSmooth") %>%
setView(lng = -81.3, lat = 25.6, zoom = 7)
})
output$housing_growth_map <- renderLeaflet({
leaflet() %>%
addProviderTiles("CartoDB.Positron", option = providerTileOptions(minZoom = 2, maxZoom = 18)) %>% setView(lng = -81.3, lat = 25.6, zoom = 7)
addProviderTiles("Stadia.AlidadeSmooth") %>%
setView(lng = -81.3, lat = 25.6, zoom = 7)
})
observe({
@@ -681,7 +683,7 @@ Column {data-width=700 .tabset}
output$impact_analysis_map <- renderLeaflet({
leaflet() %>%
addProviderTiles("CartoDB.Positron", option = providerTileOptions(minZoom = 2, maxZoom = 18)) %>%
addProviderTiles("Stadia.AlidadeSmooth") %>%
setView(lng = -80.3, lat = 25.6, zoom = 10) %>%
addCircles(
lng = -80.3,
@@ -1017,7 +1019,7 @@ Column {data-width=350}
output$all_storms_map <- renderLeaflet({
leaflet() %>%
addProviderTiles("CartoDB.Positron", option = providerTileOptions(minZoom = 2, maxZoom = 18)) %>%
addProviderTiles("Stadia.AlidadeSmooth") %>%
addCircleMarkers(
data = all_conus_landfalls,
lng = ~lon,