# \donttest{
set_token( "MAPBOX_TOKEN" )
mapdeck(location = c(-122.3, 37.8), zoom = 10) %>%
add_bitmap(
image = paste0(
'https://raw.githubusercontent.com/uber-common/deck.gl-data/master/',
'website/sf-districts.png')
, bounds = c(-122.519, 37.7045, -122.355, 37.829)
)
mapdeck(location = c(-75.9, 40.9), zoom = 4) %>%
add_bitmap(
image = 'https://docs.mapbox.com/mapbox-gl-js/assets/radar.gif'
, bounds = c(-80.425, 37.936, -71.516, 46.437)
)
mapdeck(location = c(-75.9, 40.9), zoom = 4) %>%
add_bitmap(
image = 'https://docs.mapbox.com/mapbox-gl-js/assets/radar.gif'
, bounds = c(-80.425, 37.936, -71.516, 46.437)
, tint_colour = "#FF0000"
)
mapdeck(location = c(-75.9, 40.9), zoom = 4) %>%
add_bitmap(
image = 'https://docs.mapbox.com/mapbox-gl-js/assets/radar.gif'
, bounds = c(-80.425, 37.936, -71.516, 46.437)
, desaturate = 1
)
# }
Run the code above in your browser using DataLab