fixes #1640

rspatial · Nov 14, 2024 · cf32fed · cf32fed
1 parent 4b3d9b9
commit cf32fed
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/replace_values.R b/R/replace_values.R
@@ -258,6 +258,11 @@ setReplaceMethod("[", c("SpatRaster", "ANY", "ANY", "ANY"),
 	function(x, i, j, k, value) {
 
 		m <- c(missing(i), missing(j), missing(k))
+		if (all(m) && is.matrix(value) && ((nrow(value) == nrow(x)) && (ncol(value) == ncol(x) * nlyr(x)))) {
+			values(x) <- value
+			return(x)
+		}
+
 		s <- rep(FALSE, 3)
 		if (!m[1]) s[1] <- inherits(i, "list")
 		if (!m[2]) s[2] <- inherits(j, "list")
@@ -276,7 +281,7 @@ setReplaceMethod("[", c("SpatRaster", "ANY", "ANY", "ANY"),
 			m[3] <- TRUE
 		}
 
-		if ((!m[1]) && (inherits(i, "matrix"))) {
+		if ((!m[1]) && (inherits(i, "matrix"))) {		
 			if (ncol(i) == 1) {
 				i <- i[,1]
 			} else if (ncol(i) == 2) {