# NOT RUN {
## @knitr raster-tile-layer
tile_servers <- list(
osm = "https://a.tile.openstreetmap.org/",
carto_light = "https://cartodb-basemaps-a.global.ssl.fastly.net/light_all/",
carto_dark = "https://cartodb-basemaps-a.global.ssl.fastly.net/dark_all/",
stamen_toner = "http://a.tile.stamen.com/toner/"
)
deck <- deckgl() %>%
add_raster_tile_layer(
tileServer = tile_servers$osm,
pickable = TRUE,
autoHighlight = TRUE,
highlightColor = c(60, 60, 60, 40)
)
if (interactive()) deck
# }
Run the code above in your browser using DataLab