From 71081d1b89ab7183f1cedcc30d9547548e0d7681 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Mon, 15 Dec 2014 16:41:39 -0600
Subject: [PATCH] Improved error handling.
---
R/readWQPdata.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/readWQPdata.R b/R/readWQPdata.R
index 1963d628..f0f8ee88 100644
--- a/R/readWQPdata.R
+++ b/R/readWQPdata.R
@@ -116,7 +116,7 @@ readWQPdata <- function(...){
retval <- importWQP(urlCall,FALSE)
- if(!is.na(retval)){
+ if(!all(is.na(retval))){
siteInfo <- whatWQPsites(...)
siteInfoCommon <- data.frame(station_nm=siteInfo$MonitoringLocationName,
--
GitLab