From 6943b0546e942c896a9ee4e29a710ff5117c32d4 Mon Sep 17 00:00:00 2001 From: Stephen Roecker Date: Mon, 27 Jan 2020 16:31:57 -0500 Subject: [PATCH] undoing stop(), fetchNASIS doest not require an ODBC connection anymore to function, from = "pedon_report" is partially meant to alleviate --- R/fetchNASIS_pedons.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/fetchNASIS_pedons.R b/R/fetchNASIS_pedons.R index 2447a167..7f4dee46 100644 --- a/R/fetchNASIS_pedons.R +++ b/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'))