tests/RdsFileSet.R

source("incl/start.R")

message("*** RdsFileSet")

x <- list(a=1, b=2)
y <- letters[1:10]

saveRDS(x, "x.rds")
saveRDS(y, "y.rds")

ds <- RdsFileSet$byPath(".")
print(ds)

x2 <- loadObject(ds[[1]])
stopifnot(identical(x2, x))

message("*** RdsFileSet ... DONE")

source("incl/end.R")

Try the R.filesets package in your browser

Any scripts or data that you put into this service are public.

R.filesets documentation built on July 21, 2022, 5:11 p.m.