diff --git a/R/getWQPSites.R b/R/getWQPSites.R index 218811a7b87e8827ade69249534a802399f44c6a..3db5d6baf3bf9a8a626e26d7b287f1541a569802 100644 --- a/R/getWQPSites.R +++ b/R/getWQPSites.R @@ -59,6 +59,16 @@ getWQPSites <- function(...){ if(actualNumReturned != numToBeReturned) warning(numToBeReturned, " sites were expected, ", actualNumReturned, " were returned") + if("LatitudeMeasure" %in% names(retval)){ + retval$LatitudeMeasure <- as.numeric(retval$LatitudeMeasure) + } + + if("LongitudeMeasure" %in% names(retval)){ + retval$LongitudeMeasure <- as.numeric(retval$LongitudeMeasure) + } + + retval$queryTime <- Sys.time() + return(retval) } else {