diff --git a/DESCRIPTION b/DESCRIPTION index 2a210e5..0e67637 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,5 +1,5 @@ Package: future.mirai -Version: 0.1.1-9017 +Version: 0.1.1-9018 Depends: future Imports: diff --git a/tests/globals,formulas.R b/tests/globals,formulas.R index e032b15..f61559d 100644 --- a/tests/globals,formulas.R +++ b/tests/globals,formulas.R @@ -111,14 +111,17 @@ outer_function <- function(x) { y0 <- outer_function(1L) str(y0) -f <- future({ outer_function(1L) }) -y <- value(f) -str(y) -stopifnot(all.equal(y, y0)) - -y %<-% { outer_function(1L) } -str(y) -stopifnot(all.equal(y, y0)) +## This requires mirai (>= 0.13.2) +if (packageVersion("mirai") >= "0.13.2") { + f <- future({ outer_function(1L) }) + y <- value(f) + str(y) + stopifnot(all.equal(y, y0)) + + y %<-% { outer_function(1L) } + str(y) + stopifnot(all.equal(y, y0)) +} message("*** Globals - map(x, ~ expr) ... DONE") diff --git a/tests/zzz,future_lapply.R b/tests/zzz,future_lapply.R index be8721b..0fffa61 100644 --- a/tests/zzz,future_lapply.R +++ b/tests/zzz,future_lapply.R @@ -1,3 +1,6 @@ +## This requires mirai (>= 0.13.2) +if (packageVersion("mirai") >= "0.13.2") { + source("incl/start.R") library("listenv") @@ -129,3 +132,5 @@ if (requireNamespace("future.apply", quietly = TRUE)) { } source("incl/end.R") + +}