From f982e3f8fab64a4f86faf40555ff514bd3b13a93 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Fri, 26 Sep 2014 09:41:55 -0500
Subject: [PATCH] Convert lat/lon to numbers, added query time.
---
R/getNWISSites.R | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/R/getNWISSites.R b/R/getNWISSites.R
index a1cf2ab1..708a26db 100644
--- a/R/getNWISSites.R
+++ b/R/getNWISSites.R
@@ -24,5 +24,15 @@ getNWISSites <- function(...){
retval <- getRDB1Data(urlCall)
+ if("dec_lat_va" %in% names(retval)){
+ retval$dec_lat_va <- as.numeric(retval$dec_lat_va)
+ }
+
+ if("dec_long_va" %in% names(retval)){
+ retval$dec_long_va <- as.numeric(retval$dec_long_va)
+ }
+
+ retval$queryTime <- Sys.time()
+
return(retval)
}
--
GitLab