Running ‘ChecksumFile.R’ [4s/5s]
  Running ‘DEPRECATED.GenericDataFileSet,dsApply.R’ [3s/8s]
  Running ‘GenericDataFile.R’ [4s/7s]
  Running ‘GenericDataFileSet,sortBy.R’ [2s/3s]
  Running ‘GenericDataFileSet.R’ [19s/23s]
  Running ‘RDataFileSet.R’ [1s/1s]
Running the tests in ‘tests/RDataFileSet.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: R.oo
  Loading required package: R.methodsS3
  R.methodsS3 v1.7.1 (2016-02-15) successfully loaded. See ?R.methodsS3 for help.
  R.oo v1.21.0 (2016-10-30) successfully loaded. See ?R.oo for help.
  
  Attaching package: 'R.oo'
  
  The following objects are masked from 'package:methods':
  
      getClasses, getMethods
  
  The following objects are masked from 'package:base':
  
      attach, detach, gc, load, save
  
  R.filesets v2.12.0 successfully loaded. See ?R.filesets for help.
  
  Attaching package: 'R.filesets'
  
  The following objects are masked from 'package:base':
  
      append, readLines
  
  > 
  > message("*** RDataFileSet")
  *** RDataFileSet
  > 
  > x <- list(a=1, b=2)
  > y <- letters[1:10]
  > z <- NULL
  > 
  > save(x, file="x.RData")
  > save(y, file="y.RData")
  > save(z, file="z.RData")
  > 
  > ds <- RDataFileSet$byPath(".")
  > print(ds)
  RDataFileSet:
  Name: .
  Tags: 
  Full name: .
  Number of files: 3
  Names: x, y, z [3]
  Path (to the first file): .
  Total file size: 230 B (230 bytes)
  > 
  > x2 <- loadObject(ds[["x"]])
  > stopifnot(identical(x2, x))
  > 
  > res <- loadObject(ds[["x"]], drop=FALSE)
  > stopifnot(identical(res$x, x))
  > 
  > y2 <- loadObject(ds[["y"]])
  > stopifnot(identical(y2, y))
  > 
  > z2 <- loadObject(ds[["z"]])
  > stopifnot(is.null(z2))
  > 
  > env <- loadToEnv(ds[["x"]])
  [2018-03-27 17:51:09] Exception: Failed to load from 'RDataFile'. The reason was: bad 'file' argument
  
    at #06. value[[3L]](cond)
            - value[[3L]]() is local of the calling function
  
    at #05. tryCatchOne(expr, names, parentenv, handlers[[1L]])
            - tryCatchOne() is local of the calling function
  
    at #04. tryCatchList(expr, classes, parentenv, handlers)
            - tryCatchList() is local of the calling function
  
    at #03. tryCatch({
                base::load(file = file, envir = envir, ...)
            }, error = function(ex) {
                if (is.character(file)) {
                    msg <- sprintf("Failed to load file %s.", sQuote(file))
                }
                else {
                    msg <- sprintf("Failed to load from %s.", sQuote(class(file)[1]))
                }
                msg <- sprintf("%s The reason was: %s", msg, conditionMessage(ex))
                throw(msg)
            })
            - tryCatch() is in environment 'base'
  
    at #02. loadToEnv.default(ds[["x"]])
            - loadToEnv.default() is in environment 'R.utils'
  
    at #01. loadToEnv(ds[["x"]])
            - loadToEnv() is in environment 'R.utils'
  
  Error: Failed to load from 'RDataFile'. The reason was: bad 'file' argument
  Execution halted