if (FALSE) {
library(sf)
nc <- st_read(system.file("shape/nc.shp", package = "sf"))
# Basic layering
mapboxgl_view(nc) |>
add_view(nc[1:10, ], color = "red", layer_id = "subset")
# Layer different geometries
mapboxgl_view(polygons) |>
add_view(points, color = "blue") |>
add_view(lines, color = "green")
# Add raster data
mapboxgl_view(boundaries) |>
add_view(elevation_raster, layer_id = "elevation")
}
Run the code above in your browser using DataLab