s <- schema()
# retrieve acceptable `layout.mapbox.style` values
if (!is.na(Sys.getenv('MAPBOX_TOKEN', NA))) {
styles <- s$layout$layoutAttributes$mapbox$style$values
subplot(
plot_mapbox() %>% layout(mapbox = list(style = styles[3])),
plot_mapbox() %>% layout(mapbox = list(style = styles[5]))
)
}
Run the code above in your browser using DataLab