From 46314016a4a6b5b9bf16d65b2d0d025b6d210185 Mon Sep 17 00:00:00 2001
From: Andrew Gene Brown <andrew.g.brown@usda.gov>
Date: Mon, 2 Dec 2024 13:32:06 -0800
Subject: [PATCH] fetchNASIS("component"): test NASIS connection before query

---
 R/fetchNASIS_components.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/fetchNASIS_components.R b/R/fetchNASIS_components.R
index 69a4d894..98c63c2c 100644
--- 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())