CRAN Package Check Results for Package zoo

Last updated on 2018-04-26 12:47:36 CEST.

Check Details

Version: 1.8-1
Check: examples
Result: ERROR
    Running examples in ‘zoo-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: ggplot2.zoo
    > ### Title: Convenience Functions for Plotting zoo Objects with ggplot2
    > ### Aliases: autoplot.zoo fortify.zoo ggplot2.zoo facet_free yearmon_trans
    > ### yearqtr_trans scale_x_yearmon scale_y_yearmon scale_x_yearqtr
    > ### scale_y_yearqtr
    >
    > ### ** Examples
    >
    > if(require("ggplot2") && require("scales")) {
    + ## example data
    + x.Date <- as.Date(paste(2003, 02, c(1, 3, 7, 9, 14), sep = "-"))
    + x <- zoo(rnorm(5), x.Date)
    + xlow <- x - runif(5)
    + xhigh <- x + runif(5)
    + z <- cbind(x, xlow, xhigh)
    +
    + ## univariate plotting
    + autoplot(x)
    + ## by hand
    + ggplot(aes(x = Index, y = Value), data = fortify(x, melt = TRUE)) +
    + geom_line() + xlab("Index") + ylab("x")
    + ## adding series one at a time
    + last_plot() + geom_line(aes(x = Index, y = xlow), colour = "red", data = fortify(xlow))
    + ## add ribbon for high/low band
    + ggplot(aes(x = Index, y = x, ymin = xlow, ymax = xhigh), data = fortify(x)) +
    + geom_ribbon(fill = "darkgray") + geom_line()
    +
    + ## multivariate plotting in multiple or single panels
    + autoplot(z) ## multiple without color/linetype
    + autoplot(z, facets = Series ~ .) ## multiple with series-dependent color/linetype
    + autoplot(z, facets = NULL) ## single with series-dependent color/linetype
    + ## by hand with color/linetype and with/without facets
    + qplot(x = Index, y = Value, group = Series, colour = Series,
    + linetype = Series, facets = Series ~ ., data = fortify(z, melt = TRUE)) +
    + geom_line() + xlab("Index") + ylab("")
    + ggplot(aes(x = Index, y = Value, group = Series, colour = Series, linetype = Series),
    + data = fortify(z, melt = TRUE)) + geom_line() + xlab("Index") + ylab("")
    + ## variations
    + autoplot(z, geom = "point")
    + autoplot(z, facets = NULL) + geom_point()
    + autoplot(z, facets = NULL) + scale_colour_grey() + theme_bw()
    +
    + ## for "ts" series via coercion
    + autoplot(as.zoo(EuStockMarkets))
    + autoplot(as.zoo(EuStockMarkets), facets = NULL)
    +
    + autoplot(z) +
    + aes(colour = NULL, linetype = NULL) +
    + facet_grid(Series ~ ., scales = "free_y")
    +
    + autoplot(z) + aes(colour = NULL, linetype = NULL) + facet_free() # same
    +
    + z.yq <- zooreg(rnorm(50), as.yearqtr("2000-1"), freq = 4)
    + autoplot(z.yq) + scale_x_yearqtr()
    +
    + ## mimic matplot
    + data <- cbind(A = c(6, 1, NA, NA), B = c(16, 4, 1, NA), C = c(25, 7, 2, 1))
    + autoplot(zoo(data), facet = NULL) + geom_point()
    + ## with different line types
    + autoplot(zoo(data), facet = NULL) + geom_point() + aes(linetype = Series)
    +
    + ## illustrate just fortify() method
    + z <- zoo(data)
    + fortify(z)
    + fortify(z, melt = TRUE)
    + fortify(z, melt = TRUE, names = c("Time", NA, "Data"))
    + fortify(z, melt = TRUE, names = c(Index = "Time"))
    +
    + ## with/without splitting
    + z <- zoo(cbind(a.A = 1:2, a.B = 2:3, b.A = 3:4, c.B = 4:5))
    + fortify(z)
    + fortify(z, melt = TRUE, sep = ".",
    + names = list(Series = c("Lower", "Upper")))
    +
    + }
    Loading required package: ggplot2
    Loading required package: scales
    Error: Objects of type zoo not supported by autoplot.
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64

Version: 1.8-1
Check: tests
Result: ERROR
     Running ‘as.Date.R’ [1s/1s]
    Running the tests in ‘tests/as.Date.R’ failed.
    Complete output:
     > ## set Z's timezone for reproducibility
     > Sys.setenv(TZ = "Europe/Vienna")
     >
     > ## base results
     > as.Date(10957, origin = "1970-01-01")
     [1] "2000-01-01"
     > as.Date("2000-01-01")
     [1] "2000-01-01"
     > as.Date(as.POSIXct("2000-01-01 00:00:00 GMT", tz = "GMT"))
     [1] "2000-01-01"
     > as.Date(as.POSIXlt("2000-01-01 00:00:00 GMT", tz = "GMT"))
     [1] "2000-01-01"
     > as.Date(NA)
     [1] NA
     >
     > ## for chron objects
     > library("chron")
     > as.Date(dates("01/01/2000"))
     [1] "2000-01-01"
     > as.Date(chron("01/01/2000", "00:00:00"))
     [1] "2000-01-01"
     >
     > ## for tis objects
     > library("tis")
     > as.Date(ti(20000101, "daily"))
     [1] "2000-01-01"
     > as.Date(jul(20000101))
     [1] "2000-01-01"
     >
     > ## for timeDate objects
     > library("timeDate")
    
     Attaching package: 'timeDate'
    
     The following objects are masked from 'package:tis':
    
     dayOfWeek, dayOfYear, isHoliday
    
     > as.Date(timeDate("2000-01-01"))
     [1] "2000-01-01"
     >
     > ## with zoo attached (masking as.Date/as.Date.numeric)
     > library("zoo")
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
     > as.Date(10957)
     [1] "2000-01-01"
     > as.Date("2000-01-01")
     [1] "2000-01-01"
     > as.Date(as.POSIXct("2000-01-01 00:00:00 GMT", tz = "GMT"))
     [1] "2000-01-01"
     > as.Date(as.POSIXlt("2000-01-01 00:00:00 GMT", tz = "GMT"))
     [1] "2000-01-01"
     > as.Date(NA)
     [1] NA
     > as.Date(yearmon(2000))
     [1] "2000-01-01"
     > as.Date(yearqtr(2000))
     [1] "2000-01-01"
     > as.Date(dates("01/01/2000"))
     [1] "2000-01-01"
     > as.Date(chron("01/01/2000", "00:00:00"))
     [1] "2000-01-01"
     > as.Date.ti <- tis:::as.Date.ti ## filed request for export
     > as.Date(ti(20000101, "daily"))
     [1] "2000-01-01"
     > as.Date.jul <- tis:::as.Date.jul ## filed request for export
     > as.Date(jul(20000101))
     [1] "2000-01-01"
     > as.Date.timeDate <- timeDate:::as.Date.timeDate ## filed request for export
     > as.Date(timeDate("2000-01-01"))
     [1] "2000-01-01"
     >
     > ## with mondate attached (masking again as.Date)
     > library("mondate")
    
     Attaching package: 'mondate'
    
     The following objects are masked from 'package:tis':
    
     day, month, quarter, year, ymd
    
     The following object is masked from 'package:base':
    
     as.difftime
    
     > as.Date(10957)
     [1] "2000-01-01"
     > as.Date("2000-01-01")
     [1] "2000-01-01"
     > as.Date(as.POSIXct("2000-01-01 00:00:00 GMT", tz = "GMT"))
     [1] "2000-01-01"
     > as.Date(as.POSIXlt("2000-01-01 00:00:00 GMT", tz = "GMT"))
     [1] "2000-01-01"
     > as.Date(NA)
     [1] NA
     > as.Date(yearmon(2000))
     [1] "2000-01-01"
     > as.Date(yearqtr(2000))
     [1] "2000-01-01"
     > as.Date(dates("01/01/2000"))
     [1] "2000-01-01"
     > as.Date(chron("01/01/2000", "00:00:00"))
     [1] "2000-01-01"
     > as.Date(ti(20000101, "daily"))
     [1] "2000-01-01"
     > as.Date(jul(20000101))
     [1] "2000-01-01"
     > as.Date(timeDate("2000-01-01"))
     [1] "2000-01-01"
     > as.Date(mondate(1/31))
     Object of class "Date"
     Error in .S3Class(object) :
     'S3Class' only defined for extensions of "oldClass" or classes with a data part: not true of class "Date"
     Calls: <Anonymous> -> <Anonymous> -> print -> S3Part -> .S3Class
     Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64