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

Collapse All | Expand All

(-)prettyDate.R (+1 lines)
Lines 221-226 Link Here
221
    } else if(md < 15) { ## e.g., southern hemisphere, seen 14
221
    } else if(md < 15) { ## e.g., southern hemisphere, seen 14
222
        at2$mday <- md + 14L # consistent w (1 -> 15) in 1st case; ok even in Feb.
222
        at2$mday <- md + 14L # consistent w (1 -> 15) in 1st case; ok even in Feb.
223
    }
223
    }
224
    at2$isdst <- -1L
224
    at2 <- rbind(at, as.POSIXct(at2), deparse.level = 0L)
225
    at2 <- rbind(at, as.POSIXct(at2), deparse.level = 0L)
225
    structure(at2[i], class = class(at), tzone = attr(at, "tzone"))
226
    structure(at2[i], class = class(at), tzone = attr(at, "tzone"))
226
}
227
}

Return to bug 16923