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'))