From 2b8d1af96bd7ab49304645d1a49ab3710d8101ff Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 8 Apr 2015 16:36:42 -0500
Subject: [PATCH] Added UTC option.
---
R/readNWISdata.r | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/R/readNWISdata.r b/R/readNWISdata.r
index 1535c878..1c7a8672 100644
--- a/R/readNWISdata.r
+++ b/R/readNWISdata.r
@@ -105,6 +105,11 @@ readNWISdata <- function(service="dv", ...){
values["stateCd"] <- stateCdLookup(values["stateCd"], "postal")
}
+ if("statecode" %in% names(values)){
+ values["statecode"] <- stateCdLookup(values["statecode"], "postal")
+ names(values)[names(values) == "statecode"] <- "stateCd"
+ }
+
if(service == "iv"){
baseURL <- "http://nwis.waterservices.usgs.gov/nwis/"
} else if (service == "qwdata"){
@@ -138,8 +143,9 @@ readNWISdata <- function(service="dv", ...){
"America/Denver","America/Los_Angeles",
"America/Anchorage","America/Honolulu",
"America/Jamaica","America/Managua",
- "America/Phoenix","America/Metlakatla")
+ "America/Phoenix","America/Metlakatla","UTC")
tz <- match.arg(tz, rTZ)
+ if("UTC" == tz) tz <- ""
}
values <- values[!(names(values) %in% "tz")]
} else {
--
GitLab