made an S3 method for c.POSIXlt that directs R to the lubridate S3 me…

…thod for c.POSIXct

NAMESPACE

@@ -12,6 +12,7 @@ S3method(as.POSIXlt,tis)
 S3method(as.POSIXlt,xts)
 S3method(as.POSIXlt,zoo)
 S3method(c,POSIXct)
+S3method(c,POSIXlt)
 S3method(decimal_date,default)
 S3method(decimal_date,its)
 S3method(decimal_date,zoo)

R/POSIXt.r

@@ -18,5 +18,11 @@ is.POSIXlt <- function(x) is(x, "POSIXlt")
 is.POSIXct <- function(x) is(x, "POSIXct")
 
 #' @S3method c POSIXct
-c.POSIXct <- function (..., recursive = FALSE) 
+c.POSIXct <- function (..., recursive = FALSE) {
 	.POSIXct(c(unlist(lapply(list(...), unclass))), tz = tz(list(...)[[1]]))
+}
+
+#' @S3method c POSIXlt
+c.POSIXlt <- function (..., recursive = FALSE) {
+  as.POSIXlt(do.call("c.POSIXct", lapply(list(...), as.POSIXct)))
+}

R/update.r

@@ -128,7 +128,7 @@ fit_to_timeline <- function(lt, class = "POSIXct") {
   if (class != "POSIXlt" && class != "POSIXct")
     stop("class argument must be POSIXlt or POSIXct")
 
-  # fall break
+  # fall break - DST only changes if it has to
   ct <- as.POSIXct(lt)
   t <- lt
   t$isdst <- as.POSIXlt(ct)$isdst