fix vect assignment #93

mikejohnson51 · Mar 17, 2024 · e91ae02 · e91ae02
1 parent bd30907
commit e91ae02
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dap.R b/R/dap.R
@@ -115,7 +115,7 @@ dap <- function(URL = NULL,
     }
   }
 
-  if(all(sapply(AOI, class) == "SpatRaster")){
+  if(class(AOI)[1] == "SpatRaster"){
 
     l = unlist(list(AOI,x), recursive = TRUE)