if (FALSE) {
library(sf)
# Create simple points
pts <- st_sfc(st_point(c(0, 0)), st_point(c(1, 1)))
sf_obj <- st_sf(id = c("A", "B"), geometry = pts)
# Extract coordinates
coords <- points_from_sf(sf_obj, id_col = "id")
str(coords)
}
Run the code above in your browser using DataLab