suppressPackageStartupMessages(library(lwgeom))
suppressPackageStartupMessages(library(sf))
nc = st_read(system.file("gpkg/nc.gpkg", package="sf"), quiet = TRUE)
nc = st_transform(nc, 3857)
st_perimeter_lwgeom(nc)[1:5]
st_perimeter_2d(nc)[1:5]