Displaying 3 results from an estimated 3 matches for "posixlt2date".
2005 Jun 02
1
Wishlist: more flexible handling of tick labels in axis.Date (PR#7913)
...format <- "%b %d"
}
else if (d < 1.1 * 365) {
zz <- as.POSIXlt(z)
zz$mday <- 1
zz$mon <- pretty(zz$mon)
m <- length(zz$mon)
m <- rep.int(zz$year[1], m)
zz$year <- c(m, m + 1)
z <- .Internal(POSIXlt2Date(zz))
if (missing(format))
format <- "%b"
}
else {
zz <- as.POSIXlt(z)
zz$mday <- 1
zz$mon <- 0
zz$year <- pretty(zz$year)
z <- .Internal(POSIXlt2Date(zz))
if (missing(format))
format...
2005 Jun 02
1
Wishlist: more flexible handling of tick labels in axis.Date (PR#7914)
...}
> else if (d < 1.1 * 365) {
> zz <- as.POSIXlt(z)
> zz$mday <- 1
> zz$mon <- pretty(zz$mon)
> m <- length(zz$mon)
> m <- rep.int(zz$year[1], m)
> zz$year <- c(m, m + 1)
> z <- .Internal(POSIXlt2Date(zz))
> if (missing(format))
> format <- "%b"
> }
> else {
> zz <- as.POSIXlt(z)
> zz$mday <- 1
> zz$mon <- 0
> zz$year <- pretty(zz$year)
> z <- .Internal(POSIXlt2Date(zz))
>...
2008 Jan 12
0
hist.Date() and cut.Date(): approximations used when using breaks = 'months' or 'years'
...wing:
start <- as.POSIXlt(min(x, na.rm = TRUE))
...
if (valid == 3) {
start$mday <- 1
incr <- 31
}
if (valid == 4) {
start$mon <- 0
incr <- 366
}
start <- .Internal(POSIXlt2Date(start))
maxx <- max(x, na.rm = TRUE)
breaks <- seq.int(start, maxx + incr, breaks)
breaks <- breaks[1:(1 + max(which(breaks < maxx)))]
...
res <- hist.default(unclass(x), unclass(breaks), plot = FALSE,
...)
The first check is for breaks = &...