fetchNASIS("components")/fetchVegdata: more informative error for emp…

…ty selected set
ncss-tech · Dec 3, 2024 · 1c15921 · 1c15921
1 parent f3f1a38
commit 1c15921
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/fetchNASIS_components.R b/R/fetchNASIS_components.R
@@ -103,7 +103,8 @@
     }
 
   } else {
-    stop("No horizon data in NASIS component query result.", call. = FALSE)
+    ds <- ifelse(SS, "NASIS selected set", "NASIS local database")
+    stop("No component/horizon records in ", ds, call. = FALSE)
   }
 
   # add site data to object

diff --git a/R/get_vegplot_data_from_NASIS_db.R b/R/get_vegplot_data_from_NASIS_db.R
@@ -68,7 +68,7 @@ get_vegplot_from_NASIS_db <- function(SS = TRUE,
   # test for no data
   if (nrow(d.vegplot) == 0) {
     ds <- ifelse(SS, "NASIS selected set", "NASIS local database")
-    stop('No NASIS Site+Vegetation Plot records in ', ds, '!', call. = FALSE)
+    stop('No NASIS site/vegetation plot records in ', ds, call. = FALSE)
   }
   # uncode metadata domains
   d <- uncode(d.vegplot, dsn = dsn)