From 84664303ef7d2469b23416cecfcbd195191488c2 Mon Sep 17 00:00:00 2001 From: dylanbenzi Date: Sun, 20 Jul 2025 20:46:57 -0400 Subject: [PATCH] update map provider tiles --- dashboard.Rmd | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/dashboard.Rmd b/dashboard.Rmd index 02e76c4..ffc8bfb 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -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,