Skip to content
Snippets Groups Projects
Commit 74ea3cf1 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Improved error handling.

parent f9c88bf2
No related branches found
No related tags found
1 merge request!9Added a lot of error handling.
......@@ -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 {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment