Improved error handling.

71081d1b · Laura A DeCicco · 865b21df · 71081d1b
Commit 71081d1b authored 10 years ago by Laura A DeCicco
--- 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,