if (FALSE) {
library(sf)
nc <- st_read(system.file("shape/nc.shp", package = "sf"))
# Basic view
mapboxgl_view(nc)
# View with column visualization
mapboxgl_view(nc, column = "AREA")
# View with quantile breaks
mapboxgl_view(nc, column = "AREA", n = 5)
# Custom palette examples
mapboxgl_view(nc, column = "AREA", palette = viridisLite::mako)
mapboxgl_view(nc, column = "AREA", palette = function(n) RColorBrewer::brewer.pal(n, "RdYlBu"))
mapboxgl_view(nc, column = "AREA", palette = colorRampPalette(c("red", "white", "blue")))
}
Run the code above in your browser using DataLab