if (FALSE) {
library(sf)
# Create a simple polygon
poly <- st_polygon(list(
matrix(c(0,0, 1,0, 1,1, 0,1, 0,0), ncol = 2, byrow = TRUE)
))
sf_obj <- st_sf(id = "test", geometry = st_sfc(poly))
# Extract coordinates
coords <- polygons_from_sf(sf_obj, id_col = "id")
str(coords)
}
Run the code above in your browser using DataLab