fix bug related to rspatial#1218

error with na.policy = "omit" and multilayer SpatRaster bc it was reading all layer values in the checkNA step
see24 · Jul 17, 2023 · 8b4cc83 · 8b4cc83
1 parent a8d50e9
commit 8b4cc83
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/focal.R b/R/focal.R
@@ -132,7 +132,12 @@ function(x, w=3, fun="sum", ..., na.policy="all", fillvalue=NA, expand=FALSE, si
 				}
 
 				if (checkNA) {
-					mv <- readValues(x, b$row[i], b$nrows[i])
+				  if (nl > 1) {
+				    mv <- readValues(x[[j]], b$row[i], b$nrows[i])
+				  } else {
+				    mv <- readValues(x, b$row[i], b$nrows[i])
+				  }
+
 					if (na.only) {
 						k <- !is.na(mv)
 					} else {