fixes #930

rspatial · Feb 17, 2024 · 8dcd715 · 8dcd715
1 parent f16fc58
commit 8dcd715
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/focal.R b/R/focal.R
@@ -578,7 +578,11 @@ function(x, w=3, fun="ols", ..., fillvalue=NA, filename="", overwrite=FALSE, wop
 		outnl <- funopt$nl
 	} else {
 		# need to test
-		#outnl <- 
+		out <- fun(1:msz, sample(msz))
+		outnl <- length(out)
+		if (is.null(wopt$names) && (length(names(out)) == outnl)) {
+			wopt$names <- names(out)
+		}
 	}
 	out <- rast(x, nlyr=outnl)