modify map provider tiles

This commit is contained in:
2025-07-20 20:44:27 -04:00
parent f8c2b1b194
commit 211703805d
+1 -2
View File
@@ -371,8 +371,7 @@ output$track_map <- renderLeaflet({
track_data <- storm_track() track_data <- storm_track()
map <- leaflet() %>% map <- leaflet() %>%
addProviderTiles("Stadia.AlidadeSmooth", addProviderTiles("Stadia.AlidadeSmooth") %>%
options = providerTileOptions(updateWhenIdle = T)) %>%
fitBounds( fitBounds(
lng1 = min(track_data$lon), lng1 = min(track_data$lon),
lng2 = max(track_data$lon), lng2 = max(track_data$lon),