From 6f6d5c8c85d44d7c59e3ecb0248fb658b1fa1a9c Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Mon, 1 Dec 2014 16:59:11 -0600
Subject: [PATCH] Fixing timezone bug.
---
R/importWaterML1.r | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/R/importWaterML1.r b/R/importWaterML1.r
index 7fd6fc56..673b70a6 100644
--- a/R/importWaterML1.r
+++ b/R/importWaterML1.r
@@ -274,19 +274,21 @@ importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){
datetime <- substr(datetime,1,23)
datetime <- as.POSIXct(datetime, "%Y-%m-%dT%H:%M:%OS", tz = "UTC")
- datetime <- datetime + tzHours*60*60
+ datetime <- datetime - tzHours*60*60
df$tz_cd <- as.character(zoneAbbrievs[tzOffset])
}
if(!("tz_cd" %in% names(df))){
df$tz_cd <- zoneAbbrievs[1]
tzHours <- as.numeric(substr(names(zoneAbbrievs[1]),1,3))
- datetime <- datetime + tzHours*60*60
+ datetime <- datetime - tzHours*60*60
}
}
if(tz != ""){
attr(datetime, "tzone") <- tz
+ } else {
+ attr(datetime, "tzone") <- "UTC"
}
--
GitLab