diff --git a/R/getWQPSites.R b/R/getWQPSites.R index 50f20f8877c6cc1ac5a99f8c763b97980de34f29..c0ace34ad8c86456529b1f4b355ce6c7434ec22a 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 {