# \donttest{
## San Francisco buildings
i3s <- paste0(
'https://tiles.arcgis.com/tiles/z2tnIkrLQ2BRzr6P/arcgis/rest/services/'
, 'SanFrancisco_Bldgs/SceneServer/layers/0'
)
mapdeck(
location = c(-122.41, 37.77)
, zoom = 16
, pitch = 60
) %>%
add_i3s(
data = i3s
)
# }
Run the code above in your browser using DataLab