diff --git a/R/readWQPdata.R b/R/readWQPdata.R
index 1963d6285eb8c1003c86f1a384a7206f3a2aa6ba..f0f8ee887efcc463460f58fe82d03f162aaf69cf 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,