| Line 1465... |
Line 1465... |
| 1465 |
identical(chkPretty(MTbd + 0:1), p1) ,
|
1465 |
identical(chkPretty(MTbd + 0:1), p1) ,
|
| 1466 |
identical(chkPretty(MTbd + -1:1), p1) ,
|
1466 |
identical(chkPretty(MTbd + -1:1), p1) ,
|
| 1467 |
identical(chkPretty(MTbd + 0:3), seqDp("1960-02-09", "1960-02-14")) )
|
1467 |
identical(chkPretty(MTbd + 0:3), seqDp("1960-02-09", "1960-02-14")) )
|
| 1468 |
## all pretty() above gave length >= 5 answer (with duplicated values!) in R <= 3.2.3!
|
1468 |
## all pretty() above gave length >= 5 answer (with duplicated values!) in R <= 3.2.3!
|
| 1469 |
## and length 1 or 2 instead of about 6 in R 3.2.4
|
1469 |
## and length 1 or 2 instead of about 6 in R 3.2.4
|
| - |
|
1470 |
tz. <- "Etc/GMT-1" # had "GMT-1"; then 'tzcode source' "internal" warns 12 x "unknown timezone 'GMT-1'"
|
| 1470 |
(p2 <- chkPretty(as.POSIXct("2002-02-02 02:02", tz = "GMT-1"), n = 5, min.n = 5))
|
1471 |
(p2 <- chkPretty(as.POSIXct("2002-02-02 02:02", tz = tz.), n = 5, min.n = 5))
|
| 1471 |
stopifnot(length(p2) >= 5+1,
|
1472 |
stopifnot(length(p2) >= 5+1,
|
| 1472 |
identical(p2, structure(1012611717L + (0:5), class = c("POSIXct", "POSIXt"),
|
1473 |
identical(p2, structure(1012611717L + (0:5), class = c("POSIXct", "POSIXt"),
|
| 1473 |
tzone = "GMT-1", labels = time2d(57 + (0:5)), format = "%S"))
|
1474 |
tzone = tz., labels = time2d(57 + (0:5)), format = "%S"))
|
| 1474 |
)
|
1475 |
)
|
| 1475 |
## failed in R 3.2.4
|
1476 |
## failed in R 3.2.4
|
| 1476 |
(T3 <- structure(1460019857.25, class = c("POSIXct", "POSIXt")))# typical Sys.date()
|
1477 |
(T3 <- structure(1460019857.25, class = c("POSIXct", "POSIXt")))# typical Sys.date()
|
| 1477 |
chkPretty(T3, 1) # error in svn 70438
|
1478 |
chkPretty(T3, 1) # error in svn 70438
|
| 1478 |
## "Data" from example(pretty.Date) :
|
1479 |
## "Data" from example(pretty.Date) :
|
The R Project SVN
R