From 74ea3cf13f8ddc2cb5fc0369ac0858bcab94dfdc Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Thu, 11 Sep 2014 10:25:50 -0500
Subject: [PATCH] Improved error handling.
---
R/getWQPSites.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/getWQPSites.R b/R/getWQPSites.R
index 50f20f88..c0ace34a 100644
--- a/R/getWQPSites.R
+++ b/R/getWQPSites.R
@@ -55,12 +55,12 @@ getWQPSites <- function(...){
fill = TRUE)
actualNumReturned <- nrow(retval)
- if(actualNumReturned != numToBeReturned) warning(numToBeReturned, " sample results were expected, ", actualNumReturned, " were returned")
+ if(actualNumReturned != numToBeReturned) warning(numToBeReturned, " sites were expected, ", actualNumReturned, " were returned")
return(retval)
} else {
- warning("No data to retrieve")
+ warning(paste("No data to retrieve from",urlCall))
return(NA)
}
} else {
--
GitLab