fixes #1250

rspatial · Aug 24, 2023 · e2a48d4 · e2a48d4
1 parent 5a405e8
commit e2a48d4
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/R/predict.R b/R/predict.R
@@ -73,10 +73,12 @@ parfun <- function(cls, d, fun, model, ...) {
 		r <- as.matrix(r)
 	}
 	if (inherits(model, "gstat")) {
-		nr <- max(nrow(d), 5)
-		xy <- as.matrix(d[1:nr,1:2])
-		if (all(xy == r[1:nr, 1:2])) {
-			r <- r[,-c(1:2)]   # x, y
+		if (ncol(r) > 2) {
+			nr <- max(nrow(d), 5)
+			xy <- as.matrix(d[1:nr,1:2])
+			if (all(xy == r[1:nr, 1:2])) {
+				r <- r[,-c(1:2)]   # x, y
+			}
 		}
 	}
 	if (!is.null(index)) {