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