Handle surveys w/o grids

afsc-gap-products · Jan 2, 2025 · 89a05f0 · 89a05f0
1 parent 396b2ea
commit 89a05f0
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -139,6 +139,13 @@ select_design_year <- function(x, design.year = NULL, layer.type = NA) {
 
   stopifnot("select_design_year: No DESIGN_YEAR column in x" = "DESIGN_YEAR" %in% names(x))
 
+  if(nrow(x) < 1) {
+
+    warning("select_design_year: No geometries in x.")
+
+    return(NULL)
+  }
+
   survey_definition_id <- unique(x[['SURVEY_DEFINITION_ID']])
 
   output <- NULL