speed up st_combine

r-spatial · Dec 13, 2022 · 7210201 · 7210201
1 parent d9c5de0
commit 7210201
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/R/geom-transformers.R b/R/geom-transformers.R
@@ -653,9 +653,11 @@ st_segmentize.sf = function(x, dfMaxLength, ...) {
 #' st_combine(nc)
 st_combine = function(x) {
 	x = st_geometry(x)
-	if (inherits(x, "sfc_POINT") && !is.null(attr(x, "points")))
-		x = x[]
-	st_sfc(do.call(c, x), crs = st_crs(x)) # flatten/merge
+	if (inherits(x, "sfc_POINT") && !is.null(pts <- attr(x, "points"))) {
+		mp = structure(list(st_multipoint(pts, attr(x, "point_dim"))), bbox = st_bbox(x))
+		st_sfc(mp, crs = st_crs(x))
+	} else
+		st_sfc(do.call(c, x), crs = st_crs(x)) # flatten/merge
 }
 
 # x: object of class sf