safer

rspatial · Nov 8, 2024 · b0f2224 · b0f2224
1 parent 038272b
commit b0f2224
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/lapp.R b/R/lapp.R
@@ -54,7 +54,11 @@ function(x, fun, ..., usenames=FALSE, cores=1, filename="", overwrite=FALSE, wop
 
 	if (usenames) {
 		fnames <- names(formals(fun))
-		x <- x[[names(x) %in% fnames]]
+		i <- names(x) %in% fnames
+		if (!all(i)) {
+			warn("lapp", paste(names(x)[!i], "are not used"))
+			x <- x[[names(x) %in% fnames]]
+		}
 	}