fix as(x, "Spatial") for points in matrix attr

r-spatial · Dec 14, 2022 · b16648e · b16648e
1 parent 7210201
commit b16648e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/sp.R b/R/sp.R
@@ -287,7 +287,11 @@ as_Spatial = function(from, cast = TRUE, IDs = paste0("ID", seq_along(from))) {
 sfc2SpatialPoints = function(from, IDs) {
 	if (!requireNamespace("sp", quietly = TRUE))
 		stop("package sp required, please install it first")
-	sp::SpatialPoints(do.call(rbind, from), proj4string = as(st_crs(from), "CRS"))
+	m = if (!is.null(pts <- attr(from, "points")))
+			pts
+		else 
+			do.call(rbind, from)
+	sp::SpatialPoints(m, proj4string = as(st_crs(from), "CRS"))
 }
 
 sfc2SpatialMultiPoints = function(from) {