update st_as_sfc.SpatialPoints; see also #2060

r-spatial · Dec 14, 2022 · 1bfb7ea · 1bfb7ea
1 parent b16648e
commit 1bfb7ea
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/sp.R b/R/sp.R
@@ -91,9 +91,10 @@ handle_bbox = function(sfc, sp) {
 st_as_sfc.SpatialPoints = function(x, ..., precision = 0.0) {
 	cc = x@coords
 	dimnames(cc) = NULL
-	lst = lapply(seq_len(nrow(cc)), function(x) st_point(cc[x,]))
-	handle_bbox(do.call(st_sfc, append(lst, list(crs = st_crs(x@proj4string), 
-		precision = precision))), x)
+	lst = vector("list", length = nrow(cc))
+	attr(lst, "points") = cc
+	attr(lst, "points_dim") = "XY"
+	handle_bbox(structure(st_sfc(lst, crs = st_crs(x@proj4string), precision = precision), n_empty = 0), x)
 }
 
 #' @name st_as_sfc