/usr/share/doc/r-cran-future/tests/sequential.R is in r-cran-future 1.7.0-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | source("incl/start.R")
message("*** sequential() ...")
message("- sequential() w/ required packages ...")
f <- future(median(1:3), lazy = TRUE)
print(f)
## Doesn't work if covr that depends on stats is loaded
try(unloadNamespace("stats"))
v <- value(f)
print(v)
stopifnot(identical(v, 2L))
stopifnot("stats" %in% loadedNamespaces())
message("- SequentialFuture() - exceptions ...")
res <- tryCatch({
f <- SequentialFuture(42, lazy = TRUE, local = FALSE)
}, error = identity)
stopifnot(inherits(res, "error"))
message("*** sequential() ... DONE")
source("incl/end.R")
|