From 0995d415a0a87c694c2cecbb074172bd5e710226 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Fri, 26 Sep 2014 09:42:02 -0500
Subject: [PATCH] Convert lat/lon to numbers, added query time.
---
R/getWQPSites.R | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/R/getWQPSites.R b/R/getWQPSites.R
index 218811a7..3db5d6ba 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 {
--
GitLab