x <- data.frame(
lon = c(40, 40, 50, 50, 40),
lat = c(0, 10, 10, 0, 0)
)
pts2poly_vertices(x, crs = 4326)
# Create an sf object
x <- data.frame(
lon = c(40, 40, 50, 50, 40, NA, 20, 20, 30, 30, 20),
lat = c(0, 10, 10, 0, 0, NA, 0, 10, 10, 0, 0)
)
sf::st_sf(Pred = 1:2, geometry = pts2poly_vertices(x, crs = 4326))
Run the code above in your browser using DataLab