fetchSOLUS: check for SpatVector before checking point geometry

ncss-tech · Oct 23, 2024 · 261c27f · 261c27f
1 parent d2a5578
commit 261c27f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fetchSOLUS.R b/R/fetchSOLUS.R
@@ -199,7 +199,7 @@ fetchSOLUS <- function(x = NULL,
     stop("Cannot interpolate for SoilProfileCollection output with only one depth slice! Change `method` to \"step\" or add another `depth_slice`.", call. = FALSE)
   }
 
-  if (!missing(x) && !is.null(x) && terra::is.points(x)) {
+  if (!missing(x) && !is.null(x) && inherits(x, 'SpatVector') && terra::is.points(x)) {
     dat <- terra::extract(r, x)
   } else {
     if (!missing(samples) && !is.null(samples)) {