# NOT RUN {
tricky <- structure(list(sec = c(5, 0, 0, -1),
min = c(0L, 5L, 5L, 0L),
hour = c(2L, 0L, 2L, 2L),
mday = c(4L, 4L, 14L, 4L),
mon = c(10L, 10L, 2L, 10L),
year = c(112L, 112L, 110L, 112L),
wday = c(0L, 0L, 0L, 0L),
yday = c(308L, 308L, 72L, 308L),
isdst = c(1L, 0L, 0L, 1L)),
.Names = c("sec", "min", "hour", "mday", "mon",
"year", "wday", "yday", "isdst"),
class = c("POSIXlt", "POSIXt"),
tzone = c("America/Chicago", "CST", "CDT"))
tricky
## because clocks "fall back" to 1:00 CST
## CDT, not CST at this instant
##because clocks "spring forward" past this time
## for daylight savings
## has deceptive internal structure
fit_to_timeline(tricky)
[1] "2012-11-04 02:00:05 CST" "2012-11-04 00:05:00 CDT"
[4] NA "2012-11-04 01:59:59 CDT"
## with correct timezone & DST combination
## with correct timezone & DST combination
fit_to_timeline(tricky, simple = TRUE)
## Reduce to valid time-dates by extrapolating CDT and CST zones
# }
Run the code above in your browser using DataLab