Coords to lines and polygon

library(terra)

lon <- c(-72.875691, -72.869782, -72.862467, -72.858593, -72.850833, -72.849032, -72.858058)
lat <- c(2.212863, 2.219539, 2.22007, 2.227792, 2.230666, 2.216927, 2.2097)

lonlat <- cbind(lon, lat)
crdref <- "+proj=longlat +datum=WGS84"
lns <- vect(lonlat, type="lines", crs=crdref)
lns

 class       : SpatVector 
 geometry    : lines 
 dimensions  : 1, 0  (geometries, attributes)
 extent      : -72.87569, -72.84903, 2.2097, 2.230666  (xmin, xmax, ymin, ymax)
 coord. ref. : +proj=longlat +datum=WGS84 +no_defs 

pols <- vect(lonlat, type="polygons", crs=crdref)
pols

 class       : SpatVector 
 geometry    : polygons 
 dimensions  : 1, 0  (geometries, attributes)
 extent      : -72.87569, -72.84903, 2.2097, 2.230666  (xmin, xmax, ymin, ymax)
 coord. ref. : +proj=longlat +datum=WGS84 +no_defs 

plot(pols, las=1)
plot(pols, border='orange', col='green', lwd=4, add=TRUE)

points(pts, col='purple', pch=22, cex=1)

plot(lns, las=1)
plot(lns,  col='blue', lwd=5, add=TRUE)