if (FALSE) {
library(mapboxapi)
library(ggplot2)
vector_extract <- get_vector_tiles(
tileset_id = "mapbox.mapbox-streets-v8",
location = c(-73.99405, 40.72033),
zoom = 15
)
ggplot(vector_extract$building$polygons) +
geom_sf() +
theme_void()
}
Run the code above in your browser using DataLab