View | Details | Raw Unified | Return to bug 16923 | Differences between
and this patch

Collapse All | Expand All

(-)prettyDate.R (+1 lines)
Lines 209-214 Link Here
209
    stopifnot(length(md <- unique(at2$mday)) == 1)
209
    stopifnot(length(md <- unique(at2$mday)) == 1)
210
    at <- as.POSIXct(at)
210
    at <- as.POSIXct(at)
211
    ## intersperse at and at2 := 15-day-shifted( at ), via rbind():
211
    ## intersperse at and at2 := 15-day-shifted( at ), via rbind():
212
    at2$isdst <- -1L
212
    if(md == 1) {
213
    if(md == 1) {
213
        at2$mday <- 15L
214
        at2$mday <- 15L
214
    } else if(md >= 15) { # (md == 16 may happen; not seen yet)
215
    } else if(md >= 15) { # (md == 16 may happen; not seen yet)

Return to bug 16923