fetchNASIS("component"): test NASIS connection before query

ncss-tech · Dec 2, 2024 · 4631401 · 4631401
1 parent dc11538
commit 4631401
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/fetchNASIS_components.R b/R/fetchNASIS_components.R
@@ -17,6 +17,9 @@
     NASISDomainsAsFactor(stringsAsFactors)
   }
 
+  # check if NASIS local DB instance/ODBC data source is available
+  .soilDB_test_NASIS_connection(dsn = dsn)
+
   # ensure that any old hz errors are cleared
   if (exists('component.hz.problems', envir = get_soilDB_env())) {
     assign('component.hz.problems', value = character(0), envir = get_soilDB_env())