m

rspatial · Jan 2, 2025 · 64e88ec · 64e88ec
1 parent 4b512d4
commit 64e88ec
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/extract.R b/R/extract.R
@@ -556,8 +556,8 @@ extractAlong <- function(x, y, ID=TRUE, cells=FALSE, xy=FALSE, online=FALSE, bil
 setMethod("extractRange", signature(x="SpatRaster", y="ANY"),
 	function(x, y, first, last, lyr_fun=NULL, geom_fun=NULL, ID=FALSE, na.rm=TRUE, ...) {
 
-		first <- getLyrNrs(first, names(x), nrow(y)) + 1 
-		last  <- getLyrNrs(last,  names(x), nrow(y)) + 1	
+		first <- getLyrNrs(sort(first), names(x), nrow(y)) + 1 
+		last  <- getLyrNrs(sort(last),  names(x), nrow(y)) + 1	
 		e <- extract(x, y, geom_fun, ID=TRUE, na.rm=na.rm, ...)
 		if (nrow(e) != nrow(y)) {
 			error("range_extract", "geom_fun must return a single value for each geometry/layer")

diff --git a/man/extractRange.Rd b/man/extractRange.Rd
@@ -38,7 +38,7 @@ r <- rast(system.file("ex/logo.tif", package="terra"))
 xy <- data.frame(c(50,80), c(30, 60))
 extract(r, xy)
 extract(r, xy, layer=c("red", "green"))
-extractRange(r, xy, first=1:2, last=3:2, lyr_fun=sum)
+extractRange(r, xy, first=1:2, last=2:3, lyr_fun=sum)
 }
 
 \keyword{methods}