r

rspatial · Jan 7, 2025 · 404caa8 · 404caa8
1 parent 8f7c378
commit 404caa8
Show file tree

Hide file tree

Showing 4 changed files with 19 additions and 0 deletions.
diff --git a/R/extent.R b/R/extent.R
@@ -141,6 +141,14 @@ setMethod("ext", signature(x="SpatVector"),
 	}
 )
 
+setMethod("ext", signature(x="SpatVectorCollection"),
+	function(x) {
+		e <- sapply(x, function(e) as.vector(ext(e)))
+		ext(min(e[1,]), max(e[2,]), min(e[3,]), max(e[4,]))
+	}
+)
+
+
 setMethod("ext", signature(x="SpatVectorProxy"),
 	function(x) {
 		e <- methods::new("SpatExtent")

diff --git a/R/generics.R b/R/generics.R
@@ -726,6 +726,15 @@ setMethod("project", signature(x="SpatVector"),
 	}
 )
 
+setMethod("project", signature(x="SpatVectorCollection"),
+	function(x, y, partial=FALSE)  {
+		x <- lapply(x, function(v) project(v, y, partial=partial))
+		svc(x)
+	}
+)
+
+
+
 setMethod("project", signature(x="SpatExtent"),
 	function(x, from, to)  {
 		if (missing(from)) error("project", "'from' cannot be missing")

diff --git a/man/ext.Rd b/man/ext.Rd
@@ -7,6 +7,7 @@
 \alias{ext,SpatExtent-method}
 \alias{ext,SpatRaster-method}
 \alias{ext,SpatVector-method}
+\alias{ext,SpatVectorCollection-method}
 \alias{ext,SpatVectorProxy-method}
 \alias{ext,SpatRasterDataset-method}
 \alias{ext,SpatRasterCollection-method}

diff --git a/man/project.Rd b/man/project.Rd
@@ -2,6 +2,7 @@
 
 \alias{project}
 \alias{project,SpatVector-method}
+\alias{project,SpatVectorCollection-method}
 \alias{project,SpatRaster-method}
 \alias{project,SpatExtent-method}
 \alias{project,matrix-method}