From 1f4c090aa50aaf59f9eac853133d0c7006690ade Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Mon, 1 Dec 2014 16:59:01 -0600
Subject: [PATCH] Explicitly adding UTC attribute.
---
R/importRDB1.r | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/R/importRDB1.r b/R/importRDB1.r
index f734f61c..c39db0e9 100644
--- a/R/importRDB1.r
+++ b/R/importRDB1.r
@@ -180,6 +180,8 @@ importRDB1 <- function(obs_url, asDateTime=FALSE, qw=FALSE, convertType = TRUE,
if(tz != ""){
attr(data[,regexpr('d$', dataType) > 0], "tzone") <- tz
+ } else {
+ attr(data[,regexpr('d$', dataType) > 0], "tzone") <- "UTC"
}
} else if (qw){
@@ -223,6 +225,8 @@ importRDB1 <- function(obs_url, asDateTime=FALSE, qw=FALSE, convertType = TRUE,
if(tz != ""){
attr(data$startDateTime, "tzone") <- tz
+ } else {
+ attr(data$startDateTime, "tzone") <- "UTC"
}
if(composite){
@@ -232,6 +236,8 @@ importRDB1 <- function(obs_url, asDateTime=FALSE, qw=FALSE, convertType = TRUE,
if(tz != ""){
attr(data$endDateTime, "tzone") <- tz
+ } else {
+ attr(data$endDateTime, "tzone") <- "UTC"
}
}
--
GitLab