From ec4be5343ef1212817cce753f6aa01ba25154e5a Mon Sep 17 00:00:00 2001
From: Christian Autermann <c.autermann@52north.org>
Date: Thu, 2 Apr 2015 16:37:24 +0200
Subject: [PATCH] keep timezone information when constructing TVP

---
 R/class-tvp.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/class-tvp.R b/R/class-tvp.R
index bd1fdf3..6b2bcd6 100644
--- a/R/class-tvp.R
+++ b/R/class-tvp.R
@@ -33,7 +33,10 @@ setClassUnion("TVP_or_NULL", c("TVP", "NULL"))
 #' @describeIn TVP-class Constructs a new \code{TVP}.
 TVP <- function(time = character(), value = numeric()) {
     len <- max(length(time), length(value))
-    time <- rep(as.POSIXct(as.character(time)), length.out = len)
+    if (!"POSIXct" %in% class(time)) {
+        time <- as.POSIXct(as.character(time))
+    }
+    time <- rep(time, length.out = len)
     value <- rep(as.numeric(value), length.out = len)
     return(new("TVP", time = time, value = value))
 }