rstudio / shiny-examples

Other
1.95k stars 3.78k forks source link

Map does not show up in SuperZip #189

Open cbologa opened 3 years ago

cbologa commented 3 years ago

https://shiny.rstudio.com/gallery/superzip-example.html

Might be related to

https://blog.mapbox.com/deprecating-studio-classic-styles-d8892ac38cb4

tulha commented 3 years ago

Yes, the map template is no longer available at the link referenced in the code. The fix is simple though:

Replace the following code in the server.R file:

output$map <- renderLeaflet({
  leaflet() %>%
   addTiles(
    urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
    attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
    ) %>%
     setView(lng = -93.85, lat = 37.45, zoom = 4)
 })

With:

output$map <- renderLeaflet({
 leaflet() %>%
  addTiles() %>%
   setView(lng = -93.85, lat = 37.45, zoom = 4)
})

This fix should work.