length to sum check

mikejohnson51 · Nov 21, 2023 · f71b450 · f71b450
1 parent 9254fcc
commit f71b450
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/climater_filter.R b/R/climater_filter.R
@@ -171,7 +171,7 @@ climater_filter <- function(id = NULL,
     gid = sapply(1:nrow(catalog), function(x) {
       suppressWarnings({
         tryCatch({
-          length(terra::is.related(make_vect(catalog[x,]), 
+          sum(terra::is.related(make_vect(catalog[x,]), 
                      terra::project(terra::ext(AOI), crs(AOI), catalog$crs[x]),
                      "intersects")) > 0
         }, error = function(e) {