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,