# \donttest{
set_token( "MAPBOX_TOKEN" )
## Digital elevation model from https://www.usgs.gov/
elevation <- 'https://raw.githubusercontent.com/visgl/deck.gl-data/master/website/terrain.png'
texture <- 'https://raw.githubusercontent.com/visgl/deck.gl-data/master/website/terrain-mask.png'
bounds <- c(-122.5233, 37.6493, -122.3566, 37.8159)
mapdeck() %>%
add_terrain(
, elevation_data = elevation
, elevation_decoder = c(1,0,0,0)
, texture = texture
, bounds = bounds
, max_error = 1
)
# }
Run the code above in your browser using DataLab