undoing stop(), fetchNASIS doest not require an ODBC connection anymo…

…re to function, from = "pedon_report" is partially meant to alleviate

R/fetchNASIS_pedons.R

@@ -3,9 +3,9 @@
 # get NASIS site/pedon/horizon/diagnostic feature data
 .fetchNASIS_pedons <- function(SS=TRUE, rmHzErrors=TRUE, nullFragsAreZero=TRUE, soilColorState='moist', lab=FALSE, stringsAsFactors = default.stringsAsFactors()) {
 
-  # test connection
+  # test connection, should not be required, can be used if from = "pedon_report"
   if(! 'nasis_local' %in% names(RODBC::odbcDataSources()))
-    stop('Local NASIS ODBC connection has not been setup. Please see `http://ncss-tech.github.io/AQP/soilDB/setup_local_nasis.html`.')
+    warning('Local NASIS ODBC connection has not been setup. Please see `http://ncss-tech.github.io/AQP/soilDB/setup_local_nasis.html`.')
 
   # sanity check
   if(! soilColorState %in% c('dry', 'moist'))