Running ‘demo.R’ [1s/2s]
  Running ‘dotdotdot.R’ [1s/2s]
  Running ‘future,labels.R’ [1s/2s]
  Running ‘future,lazy.R’ [1s/2s]
  Running ‘future.tests,mirai_cluster.R’ [5s/19s]
  Running ‘future.tests-mirai_multisession.R’ [2s/4s]
  Running ‘globals,formulas.R’ [1s/2s]
  Running ‘globals,manual.R’ [1s/2s]
  Running ‘globals,nested.R’ [1s/1s]
  Running ‘globals,subassignment.R’ [1s/2s]
  Running ‘globals,tricky.R’ [1s/2s]
  Running ‘mirai_cluster,worker-termination.R’ [1s/2s]
  Running ‘mirai_cluster.R’ [1s/2s]
  Running ‘nbrOfWorkers.R’ [1s/2s]
  Running ‘plan.R’ [1s/2s]
  Running ‘rng.R’ [1s/2s]
  Running ‘stdout.R’ [1s/2s]
  Running ‘zzz,future_lapply.R’ [1s/2s]
Running the tests in ‘tests/demo.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:37:34.959] plan(): Setting new future strategy stack:
  [22:37:34.959] List of future strategies:
  [22:37:34.959] 1. mirai_multisession:
  [22:37:34.959]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:37:34.959]    - tweaked: FALSE
  [22:37:34.959]    - call: future::plan(future.mirai::mirai_multisession)
  [22:37:35.002] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:37:35.003] < mirai [$data] >
  [22:37:35.091] getGlobalsAndPackages() ...
  [22:37:35.092] Not searching for globals
  [22:37:35.092] - globals: [0] <none>
  [22:37:35.093] getGlobalsAndPackages() ... DONE
  [22:37:35.093] getGlobalsAndPackages() ...
  [22:37:35.094] 
  [22:37:35.094] - globals: [0] <none>
  [22:37:35.094] getGlobalsAndPackages() ... DONE
  [22:37:36.068] Packages needed by the future expression (n = 0): <none>
  [22:37:36.069] Packages needed by future strategies (n = 0): <none>
  [22:37:36.070] {
  [22:37:36.070]     {
  [22:37:36.070]         {
  [22:37:36.070]             ...future.startTime <- base::Sys.time()
  [22:37:36.070]             {
  [22:37:36.070]                 {
  [22:37:36.070]                   {
  [22:37:36.070]                     base::local({
  [22:37:36.070]                       has_future <- base::requireNamespace("future", 
  [22:37:36.070]                         quietly = TRUE)
  [22:37:36.070]                       if (has_future) {
  [22:37:36.070]                         ns <- base::getNamespace("future")
  [22:37:36.070]                         version <- ns[[".package"]][["version"]]
  [22:37:36.070]                         if (is.null(version)) 
  [22:37:36.070]                           version <- utils::packageVersion("future")
  [22:37:36.070]                       }
  [22:37:36.070]                       else {
  [22:37:36.070]                         version <- NULL
  [22:37:36.070]                       }
  [22:37:36.070]                       if (!has_future || version < "1.8.0") {
  [22:37:36.070]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:37:36.070]                           "", base::R.version$version.string), 
  [22:37:36.070]                           platform = base::sprintf("%s (%s-bit)", 
  [22:37:36.070]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:37:36.070]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:37:36.070]                             "release", "version")], collapse = " "), 
  [22:37:36.070]                           hostname = base::Sys.info()[["nodename"]])
  [22:37:36.070]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:37:36.070]                           info)
  [22:37:36.070]                         info <- base::paste(info, collapse = "; ")
  [22:37:36.070]                         if (!has_future) {
  [22:37:36.070]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:37:36.070]                             info)
  [22:37:36.070]                         }
  [22:37:36.070]                         else {
  [22:37:36.070]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:37:36.070]                             info, version)
  [22:37:36.070]                         }
  [22:37:36.070]                         base::stop(msg)
  [22:37:36.070]                       }
  [22:37:36.070]                     })
  [22:37:36.070]                   }
  [22:37:36.070]                   ...future.strategy.old <- future::plan("list")
  [22:37:36.070]                   options(future.plan = NULL)
  [22:37:36.070]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:37:36.070]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:37:36.070]                 }
  [22:37:36.070]                 ...future.workdir <- getwd()
  [22:37:36.070]             }
  [22:37:36.070]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:37:36.070]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:37:36.070]         }
  [22:37:36.070]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:37:36.070]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:37:36.070]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:37:36.070]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:37:36.070]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:37:36.070]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:37:36.070]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:37:36.070]             base::names(...future.oldOptions))
  [22:37:36.070]     }
  [22:37:36.070]     if (FALSE) {
  [22:37:36.070]     }
  [22:37:36.070]     else {
  [22:37:36.070]         if (TRUE) {
  [22:37:36.070]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:37:36.070]                 open = "w")
  [22:37:36.070]         }
  [22:37:36.070]         else {
  [22:37:36.070]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:37:36.070]                 windows = "NUL", "/dev/null"), open = "w")
  [22:37:36.070]         }
  [22:37:36.070]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:37:36.070]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:37:36.070]             base::sink(type = "output", split = FALSE)
  [22:37:36.070]             base::close(...future.stdout)
  [22:37:36.070]         }, add = TRUE)
  [22:37:36.070]     }
  [22:37:36.070]     ...future.frame <- base::sys.nframe()
  [22:37:36.070]     ...future.conditions <- base::list()
  [22:37:36.070]     ...future.rng <- base::globalenv()$.Random.seed
  [22:37:36.070]     if (FALSE) {
  [22:37:36.070]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:37:36.070]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:37:36.070]     }
  [22:37:36.070]     ...future.result <- base::tryCatch({
  [22:37:36.070]         base::withCallingHandlers({
  [22:37:36.070]             ...future.value <- base::withVisible(base::local(NA))
  [22:37:36.070]             future::FutureResult(value = ...future.value$value, 
  [22:37:36.070]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:37:36.070]                   ...future.rng), globalenv = if (FALSE) 
  [22:37:36.070]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:37:36.070]                     ...future.globalenv.names))
  [22:37:36.070]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:37:36.070]         }, condition = base::local({
  [22:37:36.070]             c <- base::c
  [22:37:36.070]             inherits <- base::inherits
  [22:37:36.070]             invokeRestart <- base::invokeRestart
  [22:37:36.070]             length <- base::length
  [22:37:36.070]             list <- base::list
  [22:37:36.070]             seq.int <- base::seq.int
  [22:37:36.070]             signalCondition <- base::signalCondition
  [22:37:36.070]             sys.calls <- base::sys.calls
  [22:37:36.070]             `[[` <- base::`[[`
  [22:37:36.070]             `+` <- base::`+`
  [22:37:36.070]             `<<-` <- base::`<<-`
  [22:37:36.070]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:37:36.070]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:37:36.070]                   3L)]
  [22:37:36.070]             }
  [22:37:36.070]             function(cond) {
  [22:37:36.070]                 is_error <- inherits(cond, "error")
  [22:37:36.070]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:37:36.070]                   NULL)
  [22:37:36.070]                 if (is_error) {
  [22:37:36.070]                   sessionInformation <- function() {
  [22:37:36.070]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:37:36.070]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:37:36.070]                       search = base::search(), system = base::Sys.info())
  [22:37:36.070]                   }
  [22:37:36.070]                   ...future.conditions[[length(...future.conditions) + 
  [22:37:36.070]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:37:36.070]                     cond$call), session = sessionInformation(), 
  [22:37:36.070]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:37:36.070]                   signalCondition(cond)
  [22:37:36.070]                 }
  [22:37:36.070]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:37:36.070]                   signal <- FALSE && inherits(cond, character(0))
  [22:37:36.070]                   ...future.conditions[[length(...future.conditions) + 
  [22:37:36.070]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:37:36.070]                   if (FALSE && !signal) {
  [22:37:36.070]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:37:36.070]                     {
  [22:37:36.070]                       inherits <- base::inherits
  [22:37:36.070]                       invokeRestart <- base::invokeRestart
  [22:37:36.070]                       is.null <- base::is.null
  [22:37:36.070]                       muffled <- FALSE
  [22:37:36.070]                       if (inherits(cond, "message")) {
  [22:37:36.070]                         muffled <- grepl(pattern, "muffleMessage")
  [22:37:36.070]                         if (muffled) 
  [22:37:36.070]                           invokeRestart("muffleMessage")
  [22:37:36.070]                       }
  [22:37:36.070]                       else if (inherits(cond, "warning")) {
  [22:37:36.070]                         muffled <- grepl(pattern, "muffleWarning")
  [22:37:36.070]                         if (muffled) 
  [22:37:36.070]                           invokeRestart("muffleWarning")
  [22:37:36.070]                       }
  [22:37:36.070]                       else if (inherits(cond, "condition")) {
  [22:37:36.070]                         if (!is.null(pattern)) {
  [22:37:36.070]                           computeRestarts <- base::computeRestarts
  [22:37:36.070]                           grepl <- base::grepl
  [22:37:36.070]                           restarts <- computeRestarts(cond)
  [22:37:36.070]                           for (restart in restarts) {
  [22:37:36.070]                             name <- restart$name
  [22:37:36.070]                             if (is.null(name)) 
  [22:37:36.070]                               next
  [22:37:36.070]                             if (!grepl(pattern, name)) 
  [22:37:36.070]                               next
  [22:37:36.070]                             invokeRestart(restart)
  [22:37:36.070]                             muffled <- TRUE
  [22:37:36.070]                             break
  [22:37:36.070]                           }
  [22:37:36.070]                         }
  [22:37:36.070]                       }
  [22:37:36.070]                       invisible(muffled)
  [22:37:36.070]                     }
  [22:37:36.070]                     muffleCondition(cond, pattern = "^muffle")
  [22:37:36.070]                   }
  [22:37:36.070]                 }
  [22:37:36.070]                 else {
  [22:37:36.070]                   if (TRUE) {
  [22:37:36.070]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:37:36.070]                     {
  [22:37:36.070]                       inherits <- base::inherits
  [22:37:36.070]                       invokeRestart <- base::invokeRestart
  [22:37:36.070]                       is.null <- base::is.null
  [22:37:36.070]                       muffled <- FALSE
  [22:37:36.070]                       if (inherits(cond, "message")) {
  [22:37:36.070]                         muffled <- grepl(pattern, "muffleMessage")
  [22:37:36.070]                         if (muffled) 
  [22:37:36.070]                           invokeRestart("muffleMessage")
  [22:37:36.070]                       }
  [22:37:36.070]                       else if (inherits(cond, "warning")) {
  [22:37:36.070]                         muffled <- grepl(pattern, "muffleWarning")
  [22:37:36.070]                         if (muffled) 
  [22:37:36.070]                           invokeRestart("muffleWarning")
  [22:37:36.070]                       }
  [22:37:36.070]                       else if (inherits(cond, "condition")) {
  [22:37:36.070]                         if (!is.null(pattern)) {
  [22:37:36.070]                           computeRestarts <- base::computeRestarts
  [22:37:36.070]                           grepl <- base::grepl
  [22:37:36.070]                           restarts <- computeRestarts(cond)
  [22:37:36.070]                           for (restart in restarts) {
  [22:37:36.070]                             name <- restart$name
  [22:37:36.070]                             if (is.null(name)) 
  [22:37:36.070]                               next
  [22:37:36.070]                             if (!grepl(pattern, name)) 
  [22:37:36.070]                               next
  [22:37:36.070]                             invokeRestart(restart)
  [22:37:36.070]                             muffled <- TRUE
  [22:37:36.070]                             break
  [22:37:36.070]                           }
  [22:37:36.070]                         }
  [22:37:36.070]                       }
  [22:37:36.070]                       invisible(muffled)
  [22:37:36.070]                     }
  [22:37:36.070]                     muffleCondition(cond, pattern = "^muffle")
  [22:37:36.070]                   }
  [22:37:36.070]                 }
  [22:37:36.070]             }
  [22:37:36.070]         }))
  [22:37:36.070]     }, error = function(ex) {
  [22:37:36.070]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:37:36.070]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:37:36.070]                 ...future.rng), started = ...future.startTime, 
  [22:37:36.070]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:37:36.070]             version = "1.8"), class = "FutureResult")
  [22:37:36.070]     }, finally = {
  [22:37:36.070]         if (!identical(...future.workdir, getwd())) 
  [22:37:36.070]             setwd(...future.workdir)
  [22:37:36.070]         {
  [22:37:36.070]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:37:36.070]                 ...future.oldOptions$nwarnings <- NULL
  [22:37:36.070]             }
  [22:37:36.070]             base::options(...future.oldOptions)
  [22:37:36.070]             if (.Platform$OS.type == "windows") {
  [22:37:36.070]                 old_names <- names(...future.oldEnvVars)
  [22:37:36.070]                 envs <- base::Sys.getenv()
  [22:37:36.070]                 names <- names(envs)
  [22:37:36.070]                 common <- intersect(names, old_names)
  [22:37:36.070]                 added <- setdiff(names, old_names)
  [22:37:36.070]                 removed <- setdiff(old_names, names)
  [22:37:36.070]                 changed <- common[...future.oldEnvVars[common] != 
  [22:37:36.070]                   envs[common]]
  [22:37:36.070]                 NAMES <- toupper(changed)
  [22:37:36.070]                 args <- list()
  [22:37:36.070]                 for (kk in seq_along(NAMES)) {
  [22:37:36.070]                   name <- changed[[kk]]
  [22:37:36.070]                   NAME <- NAMES[[kk]]
  [22:37:36.070]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:36.070]                     next
  [22:37:36.070]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:37:36.070]                 }
  [22:37:36.070]                 NAMES <- toupper(added)
  [22:37:36.070]                 for (kk in seq_along(NAMES)) {
  [22:37:36.070]                   name <- added[[kk]]
  [22:37:36.070]                   NAME <- NAMES[[kk]]
  [22:37:36.070]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:36.070]                     next
  [22:37:36.070]                   args[[name]] <- ""
  [22:37:36.070]                 }
  [22:37:36.070]                 NAMES <- toupper(removed)
  [22:37:36.070]                 for (kk in seq_along(NAMES)) {
  [22:37:36.070]                   name <- removed[[kk]]
  [22:37:36.070]                   NAME <- NAMES[[kk]]
  [22:37:36.070]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:36.070]                     next
  [22:37:36.070]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:37:36.070]                 }
  [22:37:36.070]                 if (length(args) > 0) 
  [22:37:36.070]                   base::do.call(base::Sys.setenv, args = args)
  [22:37:36.070]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:37:36.070]             }
  [22:37:36.070]             else {
  [22:37:36.070]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:37:36.070]             }
  [22:37:36.070]             {
  [22:37:36.070]                 if (base::length(...future.futureOptionsAdded) > 
  [22:37:36.070]                   0L) {
  [22:37:36.070]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:37:36.070]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:37:36.070]                   base::options(opts)
  [22:37:36.070]                 }
  [22:37:36.070]                 {
  [22:37:36.070]                   NULL
  [22:37:36.070]                   options(future.plan = NULL)
  [22:37:36.070]                   if (is.na(NA_character_)) 
  [22:37:36.070]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:37:36.070]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:37:36.070]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:37:36.070]                     .init = FALSE)
  [22:37:36.070]                 }
  [22:37:36.070]             }
  [22:37:36.070]         }
  [22:37:36.070]     })
  [22:37:36.070]     if (TRUE) {
  [22:37:36.070]         base::sink(type = "output", split = FALSE)
  [22:37:36.070]         if (TRUE) {
  [22:37:36.070]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:37:36.070]         }
  [22:37:36.070]         else {
  [22:37:36.070]             ...future.result["stdout"] <- base::list(NULL)
  [22:37:36.070]         }
  [22:37:36.070]         base::close(...future.stdout)
  [22:37:36.070]         ...future.stdout <- NULL
  [22:37:36.070]     }
  [22:37:36.070]     ...future.result$conditions <- ...future.conditions
  [22:37:36.070]     ...future.result$finished <- base::Sys.time()
  [22:37:36.070]     ...future.result
  [22:37:36.070] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/dotdotdot.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:37:36.844] plan(): Setting new future strategy stack:
  [22:37:36.844] List of future strategies:
  [22:37:36.844] 1. mirai_multisession:
  [22:37:36.844]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:37:36.844]    - tweaked: FALSE
  [22:37:36.844]    - call: future::plan(future.mirai::mirai_multisession)
  [22:37:36.871] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:37:36.872] < mirai [$data] >
  [22:37:36.947] getGlobalsAndPackages() ...
  [22:37:36.948] Not searching for globals
  [22:37:36.948] - globals: [0] <none>
  [22:37:36.949] getGlobalsAndPackages() ... DONE
  [22:37:36.949] getGlobalsAndPackages() ...
  [22:37:36.949] 
  [22:37:36.950] - globals: [0] <none>
  [22:37:36.950] getGlobalsAndPackages() ... DONE
  [22:37:38.203] Packages needed by the future expression (n = 0): <none>
  [22:37:38.204] Packages needed by future strategies (n = 0): <none>
  [22:37:38.205] {
  [22:37:38.205]     {
  [22:37:38.205]         {
  [22:37:38.205]             ...future.startTime <- base::Sys.time()
  [22:37:38.205]             {
  [22:37:38.205]                 {
  [22:37:38.205]                   {
  [22:37:38.205]                     base::local({
  [22:37:38.205]                       has_future <- base::requireNamespace("future", 
  [22:37:38.205]                         quietly = TRUE)
  [22:37:38.205]                       if (has_future) {
  [22:37:38.205]                         ns <- base::getNamespace("future")
  [22:37:38.205]                         version <- ns[[".package"]][["version"]]
  [22:37:38.205]                         if (is.null(version)) 
  [22:37:38.205]                           version <- utils::packageVersion("future")
  [22:37:38.205]                       }
  [22:37:38.205]                       else {
  [22:37:38.205]                         version <- NULL
  [22:37:38.205]                       }
  [22:37:38.205]                       if (!has_future || version < "1.8.0") {
  [22:37:38.205]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:37:38.205]                           "", base::R.version$version.string), 
  [22:37:38.205]                           platform = base::sprintf("%s (%s-bit)", 
  [22:37:38.205]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:37:38.205]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:37:38.205]                             "release", "version")], collapse = " "), 
  [22:37:38.205]                           hostname = base::Sys.info()[["nodename"]])
  [22:37:38.205]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:37:38.205]                           info)
  [22:37:38.205]                         info <- base::paste(info, collapse = "; ")
  [22:37:38.205]                         if (!has_future) {
  [22:37:38.205]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:37:38.205]                             info)
  [22:37:38.205]                         }
  [22:37:38.205]                         else {
  [22:37:38.205]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:37:38.205]                             info, version)
  [22:37:38.205]                         }
  [22:37:38.205]                         base::stop(msg)
  [22:37:38.205]                       }
  [22:37:38.205]                     })
  [22:37:38.205]                   }
  [22:37:38.205]                   ...future.strategy.old <- future::plan("list")
  [22:37:38.205]                   options(future.plan = NULL)
  [22:37:38.205]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:37:38.205]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:37:38.205]                 }
  [22:37:38.205]                 ...future.workdir <- getwd()
  [22:37:38.205]             }
  [22:37:38.205]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:37:38.205]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:37:38.205]         }
  [22:37:38.205]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:37:38.205]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:37:38.205]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:37:38.205]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:37:38.205]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:37:38.205]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:37:38.205]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:37:38.205]             base::names(...future.oldOptions))
  [22:37:38.205]     }
  [22:37:38.205]     if (FALSE) {
  [22:37:38.205]     }
  [22:37:38.205]     else {
  [22:37:38.205]         if (TRUE) {
  [22:37:38.205]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:37:38.205]                 open = "w")
  [22:37:38.205]         }
  [22:37:38.205]         else {
  [22:37:38.205]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:37:38.205]                 windows = "NUL", "/dev/null"), open = "w")
  [22:37:38.205]         }
  [22:37:38.205]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:37:38.205]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:37:38.205]             base::sink(type = "output", split = FALSE)
  [22:37:38.205]             base::close(...future.stdout)
  [22:37:38.205]         }, add = TRUE)
  [22:37:38.205]     }
  [22:37:38.205]     ...future.frame <- base::sys.nframe()
  [22:37:38.205]     ...future.conditions <- base::list()
  [22:37:38.205]     ...future.rng <- base::globalenv()$.Random.seed
  [22:37:38.205]     if (FALSE) {
  [22:37:38.205]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:37:38.205]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:37:38.205]     }
  [22:37:38.205]     ...future.result <- base::tryCatch({
  [22:37:38.205]         base::withCallingHandlers({
  [22:37:38.205]             ...future.value <- base::withVisible(base::local(NA))
  [22:37:38.205]             future::FutureResult(value = ...future.value$value, 
  [22:37:38.205]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:37:38.205]                   ...future.rng), globalenv = if (FALSE) 
  [22:37:38.205]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:37:38.205]                     ...future.globalenv.names))
  [22:37:38.205]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:37:38.205]         }, condition = base::local({
  [22:37:38.205]             c <- base::c
  [22:37:38.205]             inherits <- base::inherits
  [22:37:38.205]             invokeRestart <- base::invokeRestart
  [22:37:38.205]             length <- base::length
  [22:37:38.205]             list <- base::list
  [22:37:38.205]             seq.int <- base::seq.int
  [22:37:38.205]             signalCondition <- base::signalCondition
  [22:37:38.205]             sys.calls <- base::sys.calls
  [22:37:38.205]             `[[` <- base::`[[`
  [22:37:38.205]             `+` <- base::`+`
  [22:37:38.205]             `<<-` <- base::`<<-`
  [22:37:38.205]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:37:38.205]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:37:38.205]                   3L)]
  [22:37:38.205]             }
  [22:37:38.205]             function(cond) {
  [22:37:38.205]                 is_error <- inherits(cond, "error")
  [22:37:38.205]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:37:38.205]                   NULL)
  [22:37:38.205]                 if (is_error) {
  [22:37:38.205]                   sessionInformation <- function() {
  [22:37:38.205]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:37:38.205]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:37:38.205]                       search = base::search(), system = base::Sys.info())
  [22:37:38.205]                   }
  [22:37:38.205]                   ...future.conditions[[length(...future.conditions) + 
  [22:37:38.205]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:37:38.205]                     cond$call), session = sessionInformation(), 
  [22:37:38.205]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:37:38.205]                   signalCondition(cond)
  [22:37:38.205]                 }
  [22:37:38.205]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:37:38.205]                   signal <- FALSE && inherits(cond, character(0))
  [22:37:38.205]                   ...future.conditions[[length(...future.conditions) + 
  [22:37:38.205]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:37:38.205]                   if (FALSE && !signal) {
  [22:37:38.205]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:37:38.205]                     {
  [22:37:38.205]                       inherits <- base::inherits
  [22:37:38.205]                       invokeRestart <- base::invokeRestart
  [22:37:38.205]                       is.null <- base::is.null
  [22:37:38.205]                       muffled <- FALSE
  [22:37:38.205]                       if (inherits(cond, "message")) {
  [22:37:38.205]                         muffled <- grepl(pattern, "muffleMessage")
  [22:37:38.205]                         if (muffled) 
  [22:37:38.205]                           invokeRestart("muffleMessage")
  [22:37:38.205]                       }
  [22:37:38.205]                       else if (inherits(cond, "warning")) {
  [22:37:38.205]                         muffled <- grepl(pattern, "muffleWarning")
  [22:37:38.205]                         if (muffled) 
  [22:37:38.205]                           invokeRestart("muffleWarning")
  [22:37:38.205]                       }
  [22:37:38.205]                       else if (inherits(cond, "condition")) {
  [22:37:38.205]                         if (!is.null(pattern)) {
  [22:37:38.205]                           computeRestarts <- base::computeRestarts
  [22:37:38.205]                           grepl <- base::grepl
  [22:37:38.205]                           restarts <- computeRestarts(cond)
  [22:37:38.205]                           for (restart in restarts) {
  [22:37:38.205]                             name <- restart$name
  [22:37:38.205]                             if (is.null(name)) 
  [22:37:38.205]                               next
  [22:37:38.205]                             if (!grepl(pattern, name)) 
  [22:37:38.205]                               next
  [22:37:38.205]                             invokeRestart(restart)
  [22:37:38.205]                             muffled <- TRUE
  [22:37:38.205]                             break
  [22:37:38.205]                           }
  [22:37:38.205]                         }
  [22:37:38.205]                       }
  [22:37:38.205]                       invisible(muffled)
  [22:37:38.205]                     }
  [22:37:38.205]                     muffleCondition(cond, pattern = "^muffle")
  [22:37:38.205]                   }
  [22:37:38.205]                 }
  [22:37:38.205]                 else {
  [22:37:38.205]                   if (TRUE) {
  [22:37:38.205]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:37:38.205]                     {
  [22:37:38.205]                       inherits <- base::inherits
  [22:37:38.205]                       invokeRestart <- base::invokeRestart
  [22:37:38.205]                       is.null <- base::is.null
  [22:37:38.205]                       muffled <- FALSE
  [22:37:38.205]                       if (inherits(cond, "message")) {
  [22:37:38.205]                         muffled <- grepl(pattern, "muffleMessage")
  [22:37:38.205]                         if (muffled) 
  [22:37:38.205]                           invokeRestart("muffleMessage")
  [22:37:38.205]                       }
  [22:37:38.205]                       else if (inherits(cond, "warning")) {
  [22:37:38.205]                         muffled <- grepl(pattern, "muffleWarning")
  [22:37:38.205]                         if (muffled) 
  [22:37:38.205]                           invokeRestart("muffleWarning")
  [22:37:38.205]                       }
  [22:37:38.205]                       else if (inherits(cond, "condition")) {
  [22:37:38.205]                         if (!is.null(pattern)) {
  [22:37:38.205]                           computeRestarts <- base::computeRestarts
  [22:37:38.205]                           grepl <- base::grepl
  [22:37:38.205]                           restarts <- computeRestarts(cond)
  [22:37:38.205]                           for (restart in restarts) {
  [22:37:38.205]                             name <- restart$name
  [22:37:38.205]                             if (is.null(name)) 
  [22:37:38.205]                               next
  [22:37:38.205]                             if (!grepl(pattern, name)) 
  [22:37:38.205]                               next
  [22:37:38.205]                             invokeRestart(restart)
  [22:37:38.205]                             muffled <- TRUE
  [22:37:38.205]                             break
  [22:37:38.205]                           }
  [22:37:38.205]                         }
  [22:37:38.205]                       }
  [22:37:38.205]                       invisible(muffled)
  [22:37:38.205]                     }
  [22:37:38.205]                     muffleCondition(cond, pattern = "^muffle")
  [22:37:38.205]                   }
  [22:37:38.205]                 }
  [22:37:38.205]             }
  [22:37:38.205]         }))
  [22:37:38.205]     }, error = function(ex) {
  [22:37:38.205]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:37:38.205]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:37:38.205]                 ...future.rng), started = ...future.startTime, 
  [22:37:38.205]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:37:38.205]             version = "1.8"), class = "FutureResult")
  [22:37:38.205]     }, finally = {
  [22:37:38.205]         if (!identical(...future.workdir, getwd())) 
  [22:37:38.205]             setwd(...future.workdir)
  [22:37:38.205]         {
  [22:37:38.205]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:37:38.205]                 ...future.oldOptions$nwarnings <- NULL
  [22:37:38.205]             }
  [22:37:38.205]             base::options(...future.oldOptions)
  [22:37:38.205]             if (.Platform$OS.type == "windows") {
  [22:37:38.205]                 old_names <- names(...future.oldEnvVars)
  [22:37:38.205]                 envs <- base::Sys.getenv()
  [22:37:38.205]                 names <- names(envs)
  [22:37:38.205]                 common <- intersect(names, old_names)
  [22:37:38.205]                 added <- setdiff(names, old_names)
  [22:37:38.205]                 removed <- setdiff(old_names, names)
  [22:37:38.205]                 changed <- common[...future.oldEnvVars[common] != 
  [22:37:38.205]                   envs[common]]
  [22:37:38.205]                 NAMES <- toupper(changed)
  [22:37:38.205]                 args <- list()
  [22:37:38.205]                 for (kk in seq_along(NAMES)) {
  [22:37:38.205]                   name <- changed[[kk]]
  [22:37:38.205]                   NAME <- NAMES[[kk]]
  [22:37:38.205]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:38.205]                     next
  [22:37:38.205]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:37:38.205]                 }
  [22:37:38.205]                 NAMES <- toupper(added)
  [22:37:38.205]                 for (kk in seq_along(NAMES)) {
  [22:37:38.205]                   name <- added[[kk]]
  [22:37:38.205]                   NAME <- NAMES[[kk]]
  [22:37:38.205]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:38.205]                     next
  [22:37:38.205]                   args[[name]] <- ""
  [22:37:38.205]                 }
  [22:37:38.205]                 NAMES <- toupper(removed)
  [22:37:38.205]                 for (kk in seq_along(NAMES)) {
  [22:37:38.205]                   name <- removed[[kk]]
  [22:37:38.205]                   NAME <- NAMES[[kk]]
  [22:37:38.205]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:38.205]                     next
  [22:37:38.205]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:37:38.205]                 }
  [22:37:38.205]                 if (length(args) > 0) 
  [22:37:38.205]                   base::do.call(base::Sys.setenv, args = args)
  [22:37:38.205]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:37:38.205]             }
  [22:37:38.205]             else {
  [22:37:38.205]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:37:38.205]             }
  [22:37:38.205]             {
  [22:37:38.205]                 if (base::length(...future.futureOptionsAdded) > 
  [22:37:38.205]                   0L) {
  [22:37:38.205]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:37:38.205]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:37:38.205]                   base::options(opts)
  [22:37:38.205]                 }
  [22:37:38.205]                 {
  [22:37:38.205]                   NULL
  [22:37:38.205]                   options(future.plan = NULL)
  [22:37:38.205]                   if (is.na(NA_character_)) 
  [22:37:38.205]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:37:38.205]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:37:38.205]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:37:38.205]                     .init = FALSE)
  [22:37:38.205]                 }
  [22:37:38.205]             }
  [22:37:38.205]         }
  [22:37:38.205]     })
  [22:37:38.205]     if (TRUE) {
  [22:37:38.205]         base::sink(type = "output", split = FALSE)
  [22:37:38.205]         if (TRUE) {
  [22:37:38.205]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:37:38.205]         }
  [22:37:38.205]         else {
  [22:37:38.205]             ...future.result["stdout"] <- base::list(NULL)
  [22:37:38.205]         }
  [22:37:38.205]         base::close(...future.stdout)
  [22:37:38.205]         ...future.stdout <- NULL
  [22:37:38.205]     }
  [22:37:38.205]     ...future.result$conditions <- ...future.conditions
  [22:37:38.205]     ...future.result$finished <- base::Sys.time()
  [22:37:38.205]     ...future.result
  [22:37:38.205] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/future,labels.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:37:38.990] plan(): Setting new future strategy stack:
  [22:37:38.990] List of future strategies:
  [22:37:38.990] 1. mirai_multisession:
  [22:37:38.990]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:37:38.990]    - tweaked: FALSE
  [22:37:38.990]    - call: future::plan(future.mirai::mirai_multisession)
  [22:37:39.052] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:37:39.052] < mirai [$data] >
  [22:37:39.135] getGlobalsAndPackages() ...
  [22:37:39.135] Not searching for globals
  [22:37:39.135] - globals: [0] <none>
  [22:37:39.136] getGlobalsAndPackages() ... DONE
  [22:37:39.136] getGlobalsAndPackages() ...
  [22:37:39.137] 
  [22:37:39.137] - globals: [0] <none>
  [22:37:39.137] getGlobalsAndPackages() ... DONE
  [22:37:40.268] Packages needed by the future expression (n = 0): <none>
  [22:37:40.268] Packages needed by future strategies (n = 0): <none>
  [22:37:40.270] {
  [22:37:40.270]     {
  [22:37:40.270]         {
  [22:37:40.270]             ...future.startTime <- base::Sys.time()
  [22:37:40.270]             {
  [22:37:40.270]                 {
  [22:37:40.270]                   {
  [22:37:40.270]                     base::local({
  [22:37:40.270]                       has_future <- base::requireNamespace("future", 
  [22:37:40.270]                         quietly = TRUE)
  [22:37:40.270]                       if (has_future) {
  [22:37:40.270]                         ns <- base::getNamespace("future")
  [22:37:40.270]                         version <- ns[[".package"]][["version"]]
  [22:37:40.270]                         if (is.null(version)) 
  [22:37:40.270]                           version <- utils::packageVersion("future")
  [22:37:40.270]                       }
  [22:37:40.270]                       else {
  [22:37:40.270]                         version <- NULL
  [22:37:40.270]                       }
  [22:37:40.270]                       if (!has_future || version < "1.8.0") {
  [22:37:40.270]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:37:40.270]                           "", base::R.version$version.string), 
  [22:37:40.270]                           platform = base::sprintf("%s (%s-bit)", 
  [22:37:40.270]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:37:40.270]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:37:40.270]                             "release", "version")], collapse = " "), 
  [22:37:40.270]                           hostname = base::Sys.info()[["nodename"]])
  [22:37:40.270]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:37:40.270]                           info)
  [22:37:40.270]                         info <- base::paste(info, collapse = "; ")
  [22:37:40.270]                         if (!has_future) {
  [22:37:40.270]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:37:40.270]                             info)
  [22:37:40.270]                         }
  [22:37:40.270]                         else {
  [22:37:40.270]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:37:40.270]                             info, version)
  [22:37:40.270]                         }
  [22:37:40.270]                         base::stop(msg)
  [22:37:40.270]                       }
  [22:37:40.270]                     })
  [22:37:40.270]                   }
  [22:37:40.270]                   ...future.strategy.old <- future::plan("list")
  [22:37:40.270]                   options(future.plan = NULL)
  [22:37:40.270]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:37:40.270]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:37:40.270]                 }
  [22:37:40.270]                 ...future.workdir <- getwd()
  [22:37:40.270]             }
  [22:37:40.270]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:37:40.270]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:37:40.270]         }
  [22:37:40.270]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:37:40.270]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:37:40.270]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:37:40.270]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:37:40.270]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:37:40.270]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:37:40.270]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:37:40.270]             base::names(...future.oldOptions))
  [22:37:40.270]     }
  [22:37:40.270]     if (FALSE) {
  [22:37:40.270]     }
  [22:37:40.270]     else {
  [22:37:40.270]         if (TRUE) {
  [22:37:40.270]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:37:40.270]                 open = "w")
  [22:37:40.270]         }
  [22:37:40.270]         else {
  [22:37:40.270]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:37:40.270]                 windows = "NUL", "/dev/null"), open = "w")
  [22:37:40.270]         }
  [22:37:40.270]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:37:40.270]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:37:40.270]             base::sink(type = "output", split = FALSE)
  [22:37:40.270]             base::close(...future.stdout)
  [22:37:40.270]         }, add = TRUE)
  [22:37:40.270]     }
  [22:37:40.270]     ...future.frame <- base::sys.nframe()
  [22:37:40.270]     ...future.conditions <- base::list()
  [22:37:40.270]     ...future.rng <- base::globalenv()$.Random.seed
  [22:37:40.270]     if (FALSE) {
  [22:37:40.270]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:37:40.270]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:37:40.270]     }
  [22:37:40.270]     ...future.result <- base::tryCatch({
  [22:37:40.270]         base::withCallingHandlers({
  [22:37:40.270]             ...future.value <- base::withVisible(base::local(NA))
  [22:37:40.270]             future::FutureResult(value = ...future.value$value, 
  [22:37:40.270]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:37:40.270]                   ...future.rng), globalenv = if (FALSE) 
  [22:37:40.270]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:37:40.270]                     ...future.globalenv.names))
  [22:37:40.270]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:37:40.270]         }, condition = base::local({
  [22:37:40.270]             c <- base::c
  [22:37:40.270]             inherits <- base::inherits
  [22:37:40.270]             invokeRestart <- base::invokeRestart
  [22:37:40.270]             length <- base::length
  [22:37:40.270]             list <- base::list
  [22:37:40.270]             seq.int <- base::seq.int
  [22:37:40.270]             signalCondition <- base::signalCondition
  [22:37:40.270]             sys.calls <- base::sys.calls
  [22:37:40.270]             `[[` <- base::`[[`
  [22:37:40.270]             `+` <- base::`+`
  [22:37:40.270]             `<<-` <- base::`<<-`
  [22:37:40.270]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:37:40.270]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:37:40.270]                   3L)]
  [22:37:40.270]             }
  [22:37:40.270]             function(cond) {
  [22:37:40.270]                 is_error <- inherits(cond, "error")
  [22:37:40.270]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:37:40.270]                   NULL)
  [22:37:40.270]                 if (is_error) {
  [22:37:40.270]                   sessionInformation <- function() {
  [22:37:40.270]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:37:40.270]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:37:40.270]                       search = base::search(), system = base::Sys.info())
  [22:37:40.270]                   }
  [22:37:40.270]                   ...future.conditions[[length(...future.conditions) + 
  [22:37:40.270]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:37:40.270]                     cond$call), session = sessionInformation(), 
  [22:37:40.270]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:37:40.270]                   signalCondition(cond)
  [22:37:40.270]                 }
  [22:37:40.270]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:37:40.270]                   signal <- FALSE && inherits(cond, character(0))
  [22:37:40.270]                   ...future.conditions[[length(...future.conditions) + 
  [22:37:40.270]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:37:40.270]                   if (FALSE && !signal) {
  [22:37:40.270]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:37:40.270]                     {
  [22:37:40.270]                       inherits <- base::inherits
  [22:37:40.270]                       invokeRestart <- base::invokeRestart
  [22:37:40.270]                       is.null <- base::is.null
  [22:37:40.270]                       muffled <- FALSE
  [22:37:40.270]                       if (inherits(cond, "message")) {
  [22:37:40.270]                         muffled <- grepl(pattern, "muffleMessage")
  [22:37:40.270]                         if (muffled) 
  [22:37:40.270]                           invokeRestart("muffleMessage")
  [22:37:40.270]                       }
  [22:37:40.270]                       else if (inherits(cond, "warning")) {
  [22:37:40.270]                         muffled <- grepl(pattern, "muffleWarning")
  [22:37:40.270]                         if (muffled) 
  [22:37:40.270]                           invokeRestart("muffleWarning")
  [22:37:40.270]                       }
  [22:37:40.270]                       else if (inherits(cond, "condition")) {
  [22:37:40.270]                         if (!is.null(pattern)) {
  [22:37:40.270]                           computeRestarts <- base::computeRestarts
  [22:37:40.270]                           grepl <- base::grepl
  [22:37:40.270]                           restarts <- computeRestarts(cond)
  [22:37:40.270]                           for (restart in restarts) {
  [22:37:40.270]                             name <- restart$name
  [22:37:40.270]                             if (is.null(name)) 
  [22:37:40.270]                               next
  [22:37:40.270]                             if (!grepl(pattern, name)) 
  [22:37:40.270]                               next
  [22:37:40.270]                             invokeRestart(restart)
  [22:37:40.270]                             muffled <- TRUE
  [22:37:40.270]                             break
  [22:37:40.270]                           }
  [22:37:40.270]                         }
  [22:37:40.270]                       }
  [22:37:40.270]                       invisible(muffled)
  [22:37:40.270]                     }
  [22:37:40.270]                     muffleCondition(cond, pattern = "^muffle")
  [22:37:40.270]                   }
  [22:37:40.270]                 }
  [22:37:40.270]                 else {
  [22:37:40.270]                   if (TRUE) {
  [22:37:40.270]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:37:40.270]                     {
  [22:37:40.270]                       inherits <- base::inherits
  [22:37:40.270]                       invokeRestart <- base::invokeRestart
  [22:37:40.270]                       is.null <- base::is.null
  [22:37:40.270]                       muffled <- FALSE
  [22:37:40.270]                       if (inherits(cond, "message")) {
  [22:37:40.270]                         muffled <- grepl(pattern, "muffleMessage")
  [22:37:40.270]                         if (muffled) 
  [22:37:40.270]                           invokeRestart("muffleMessage")
  [22:37:40.270]                       }
  [22:37:40.270]                       else if (inherits(cond, "warning")) {
  [22:37:40.270]                         muffled <- grepl(pattern, "muffleWarning")
  [22:37:40.270]                         if (muffled) 
  [22:37:40.270]                           invokeRestart("muffleWarning")
  [22:37:40.270]                       }
  [22:37:40.270]                       else if (inherits(cond, "condition")) {
  [22:37:40.270]                         if (!is.null(pattern)) {
  [22:37:40.270]                           computeRestarts <- base::computeRestarts
  [22:37:40.270]                           grepl <- base::grepl
  [22:37:40.270]                           restarts <- computeRestarts(cond)
  [22:37:40.270]                           for (restart in restarts) {
  [22:37:40.270]                             name <- restart$name
  [22:37:40.270]                             if (is.null(name)) 
  [22:37:40.270]                               next
  [22:37:40.270]                             if (!grepl(pattern, name)) 
  [22:37:40.270]                               next
  [22:37:40.270]                             invokeRestart(restart)
  [22:37:40.270]                             muffled <- TRUE
  [22:37:40.270]                             break
  [22:37:40.270]                           }
  [22:37:40.270]                         }
  [22:37:40.270]                       }
  [22:37:40.270]                       invisible(muffled)
  [22:37:40.270]                     }
  [22:37:40.270]                     muffleCondition(cond, pattern = "^muffle")
  [22:37:40.270]                   }
  [22:37:40.270]                 }
  [22:37:40.270]             }
  [22:37:40.270]         }))
  [22:37:40.270]     }, error = function(ex) {
  [22:37:40.270]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:37:40.270]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:37:40.270]                 ...future.rng), started = ...future.startTime, 
  [22:37:40.270]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:37:40.270]             version = "1.8"), class = "FutureResult")
  [22:37:40.270]     }, finally = {
  [22:37:40.270]         if (!identical(...future.workdir, getwd())) 
  [22:37:40.270]             setwd(...future.workdir)
  [22:37:40.270]         {
  [22:37:40.270]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:37:40.270]                 ...future.oldOptions$nwarnings <- NULL
  [22:37:40.270]             }
  [22:37:40.270]             base::options(...future.oldOptions)
  [22:37:40.270]             if (.Platform$OS.type == "windows") {
  [22:37:40.270]                 old_names <- names(...future.oldEnvVars)
  [22:37:40.270]                 envs <- base::Sys.getenv()
  [22:37:40.270]                 names <- names(envs)
  [22:37:40.270]                 common <- intersect(names, old_names)
  [22:37:40.270]                 added <- setdiff(names, old_names)
  [22:37:40.270]                 removed <- setdiff(old_names, names)
  [22:37:40.270]                 changed <- common[...future.oldEnvVars[common] != 
  [22:37:40.270]                   envs[common]]
  [22:37:40.270]                 NAMES <- toupper(changed)
  [22:37:40.270]                 args <- list()
  [22:37:40.270]                 for (kk in seq_along(NAMES)) {
  [22:37:40.270]                   name <- changed[[kk]]
  [22:37:40.270]                   NAME <- NAMES[[kk]]
  [22:37:40.270]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:40.270]                     next
  [22:37:40.270]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:37:40.270]                 }
  [22:37:40.270]                 NAMES <- toupper(added)
  [22:37:40.270]                 for (kk in seq_along(NAMES)) {
  [22:37:40.270]                   name <- added[[kk]]
  [22:37:40.270]                   NAME <- NAMES[[kk]]
  [22:37:40.270]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:40.270]                     next
  [22:37:40.270]                   args[[name]] <- ""
  [22:37:40.270]                 }
  [22:37:40.270]                 NAMES <- toupper(removed)
  [22:37:40.270]                 for (kk in seq_along(NAMES)) {
  [22:37:40.270]                   name <- removed[[kk]]
  [22:37:40.270]                   NAME <- NAMES[[kk]]
  [22:37:40.270]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:40.270]                     next
  [22:37:40.270]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:37:40.270]                 }
  [22:37:40.270]                 if (length(args) > 0) 
  [22:37:40.270]                   base::do.call(base::Sys.setenv, args = args)
  [22:37:40.270]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:37:40.270]             }
  [22:37:40.270]             else {
  [22:37:40.270]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:37:40.270]             }
  [22:37:40.270]             {
  [22:37:40.270]                 if (base::length(...future.futureOptionsAdded) > 
  [22:37:40.270]                   0L) {
  [22:37:40.270]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:37:40.270]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:37:40.270]                   base::options(opts)
  [22:37:40.270]                 }
  [22:37:40.270]                 {
  [22:37:40.270]                   NULL
  [22:37:40.270]                   options(future.plan = NULL)
  [22:37:40.270]                   if (is.na(NA_character_)) 
  [22:37:40.270]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:37:40.270]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:37:40.270]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:37:40.270]                     .init = FALSE)
  [22:37:40.270]                 }
  [22:37:40.270]             }
  [22:37:40.270]         }
  [22:37:40.270]     })
  [22:37:40.270]     if (TRUE) {
  [22:37:40.270]         base::sink(type = "output", split = FALSE)
  [22:37:40.270]         if (TRUE) {
  [22:37:40.270]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:37:40.270]         }
  [22:37:40.270]         else {
  [22:37:40.270]             ...future.result["stdout"] <- base::list(NULL)
  [22:37:40.270]         }
  [22:37:40.270]         base::close(...future.stdout)
  [22:37:40.270]         ...future.stdout <- NULL
  [22:37:40.270]     }
  [22:37:40.270]     ...future.result$conditions <- ...future.conditions
  [22:37:40.270]     ...future.result$finished <- base::Sys.time()
  [22:37:40.270]     ...future.result
  [22:37:40.270] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/future,lazy.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:37:41.053] plan(): Setting new future strategy stack:
  [22:37:41.053] List of future strategies:
  [22:37:41.053] 1. mirai_multisession:
  [22:37:41.053]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:37:41.053]    - tweaked: FALSE
  [22:37:41.053]    - call: future::plan(future.mirai::mirai_multisession)
  [22:37:41.079] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:37:41.080] < mirai [$data] >
  [22:37:41.095] getGlobalsAndPackages() ...
  [22:37:41.096] Not searching for globals
  [22:37:41.096] - globals: [0] <none>
  [22:37:41.096] getGlobalsAndPackages() ... DONE
  [22:37:41.097] getGlobalsAndPackages() ...
  [22:37:41.097] 
  [22:37:41.098] - globals: [0] <none>
  [22:37:41.098] getGlobalsAndPackages() ... DONE
  [22:37:42.385] Packages needed by the future expression (n = 0): <none>
  [22:37:42.386] Packages needed by future strategies (n = 0): <none>
  [22:37:42.387] {
  [22:37:42.387]     {
  [22:37:42.387]         {
  [22:37:42.387]             ...future.startTime <- base::Sys.time()
  [22:37:42.387]             {
  [22:37:42.387]                 {
  [22:37:42.387]                   {
  [22:37:42.387]                     base::local({
  [22:37:42.387]                       has_future <- base::requireNamespace("future", 
  [22:37:42.387]                         quietly = TRUE)
  [22:37:42.387]                       if (has_future) {
  [22:37:42.387]                         ns <- base::getNamespace("future")
  [22:37:42.387]                         version <- ns[[".package"]][["version"]]
  [22:37:42.387]                         if (is.null(version)) 
  [22:37:42.387]                           version <- utils::packageVersion("future")
  [22:37:42.387]                       }
  [22:37:42.387]                       else {
  [22:37:42.387]                         version <- NULL
  [22:37:42.387]                       }
  [22:37:42.387]                       if (!has_future || version < "1.8.0") {
  [22:37:42.387]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:37:42.387]                           "", base::R.version$version.string), 
  [22:37:42.387]                           platform = base::sprintf("%s (%s-bit)", 
  [22:37:42.387]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:37:42.387]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:37:42.387]                             "release", "version")], collapse = " "), 
  [22:37:42.387]                           hostname = base::Sys.info()[["nodename"]])
  [22:37:42.387]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:37:42.387]                           info)
  [22:37:42.387]                         info <- base::paste(info, collapse = "; ")
  [22:37:42.387]                         if (!has_future) {
  [22:37:42.387]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:37:42.387]                             info)
  [22:37:42.387]                         }
  [22:37:42.387]                         else {
  [22:37:42.387]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:37:42.387]                             info, version)
  [22:37:42.387]                         }
  [22:37:42.387]                         base::stop(msg)
  [22:37:42.387]                       }
  [22:37:42.387]                     })
  [22:37:42.387]                   }
  [22:37:42.387]                   ...future.strategy.old <- future::plan("list")
  [22:37:42.387]                   options(future.plan = NULL)
  [22:37:42.387]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:37:42.387]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:37:42.387]                 }
  [22:37:42.387]                 ...future.workdir <- getwd()
  [22:37:42.387]             }
  [22:37:42.387]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:37:42.387]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:37:42.387]         }
  [22:37:42.387]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:37:42.387]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:37:42.387]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:37:42.387]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:37:42.387]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:37:42.387]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:37:42.387]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:37:42.387]             base::names(...future.oldOptions))
  [22:37:42.387]     }
  [22:37:42.387]     if (FALSE) {
  [22:37:42.387]     }
  [22:37:42.387]     else {
  [22:37:42.387]         if (TRUE) {
  [22:37:42.387]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:37:42.387]                 open = "w")
  [22:37:42.387]         }
  [22:37:42.387]         else {
  [22:37:42.387]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:37:42.387]                 windows = "NUL", "/dev/null"), open = "w")
  [22:37:42.387]         }
  [22:37:42.387]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:37:42.387]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:37:42.387]             base::sink(type = "output", split = FALSE)
  [22:37:42.387]             base::close(...future.stdout)
  [22:37:42.387]         }, add = TRUE)
  [22:37:42.387]     }
  [22:37:42.387]     ...future.frame <- base::sys.nframe()
  [22:37:42.387]     ...future.conditions <- base::list()
  [22:37:42.387]     ...future.rng <- base::globalenv()$.Random.seed
  [22:37:42.387]     if (FALSE) {
  [22:37:42.387]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:37:42.387]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:37:42.387]     }
  [22:37:42.387]     ...future.result <- base::tryCatch({
  [22:37:42.387]         base::withCallingHandlers({
  [22:37:42.387]             ...future.value <- base::withVisible(base::local(NA))
  [22:37:42.387]             future::FutureResult(value = ...future.value$value, 
  [22:37:42.387]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:37:42.387]                   ...future.rng), globalenv = if (FALSE) 
  [22:37:42.387]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:37:42.387]                     ...future.globalenv.names))
  [22:37:42.387]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:37:42.387]         }, condition = base::local({
  [22:37:42.387]             c <- base::c
  [22:37:42.387]             inherits <- base::inherits
  [22:37:42.387]             invokeRestart <- base::invokeRestart
  [22:37:42.387]             length <- base::length
  [22:37:42.387]             list <- base::list
  [22:37:42.387]             seq.int <- base::seq.int
  [22:37:42.387]             signalCondition <- base::signalCondition
  [22:37:42.387]             sys.calls <- base::sys.calls
  [22:37:42.387]             `[[` <- base::`[[`
  [22:37:42.387]             `+` <- base::`+`
  [22:37:42.387]             `<<-` <- base::`<<-`
  [22:37:42.387]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:37:42.387]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:37:42.387]                   3L)]
  [22:37:42.387]             }
  [22:37:42.387]             function(cond) {
  [22:37:42.387]                 is_error <- inherits(cond, "error")
  [22:37:42.387]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:37:42.387]                   NULL)
  [22:37:42.387]                 if (is_error) {
  [22:37:42.387]                   sessionInformation <- function() {
  [22:37:42.387]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:37:42.387]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:37:42.387]                       search = base::search(), system = base::Sys.info())
  [22:37:42.387]                   }
  [22:37:42.387]                   ...future.conditions[[length(...future.conditions) + 
  [22:37:42.387]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:37:42.387]                     cond$call), session = sessionInformation(), 
  [22:37:42.387]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:37:42.387]                   signalCondition(cond)
  [22:37:42.387]                 }
  [22:37:42.387]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:37:42.387]                   signal <- FALSE && inherits(cond, character(0))
  [22:37:42.387]                   ...future.conditions[[length(...future.conditions) + 
  [22:37:42.387]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:37:42.387]                   if (FALSE && !signal) {
  [22:37:42.387]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:37:42.387]                     {
  [22:37:42.387]                       inherits <- base::inherits
  [22:37:42.387]                       invokeRestart <- base::invokeRestart
  [22:37:42.387]                       is.null <- base::is.null
  [22:37:42.387]                       muffled <- FALSE
  [22:37:42.387]                       if (inherits(cond, "message")) {
  [22:37:42.387]                         muffled <- grepl(pattern, "muffleMessage")
  [22:37:42.387]                         if (muffled) 
  [22:37:42.387]                           invokeRestart("muffleMessage")
  [22:37:42.387]                       }
  [22:37:42.387]                       else if (inherits(cond, "warning")) {
  [22:37:42.387]                         muffled <- grepl(pattern, "muffleWarning")
  [22:37:42.387]                         if (muffled) 
  [22:37:42.387]                           invokeRestart("muffleWarning")
  [22:37:42.387]                       }
  [22:37:42.387]                       else if (inherits(cond, "condition")) {
  [22:37:42.387]                         if (!is.null(pattern)) {
  [22:37:42.387]                           computeRestarts <- base::computeRestarts
  [22:37:42.387]                           grepl <- base::grepl
  [22:37:42.387]                           restarts <- computeRestarts(cond)
  [22:37:42.387]                           for (restart in restarts) {
  [22:37:42.387]                             name <- restart$name
  [22:37:42.387]                             if (is.null(name)) 
  [22:37:42.387]                               next
  [22:37:42.387]                             if (!grepl(pattern, name)) 
  [22:37:42.387]                               next
  [22:37:42.387]                             invokeRestart(restart)
  [22:37:42.387]                             muffled <- TRUE
  [22:37:42.387]                             break
  [22:37:42.387]                           }
  [22:37:42.387]                         }
  [22:37:42.387]                       }
  [22:37:42.387]                       invisible(muffled)
  [22:37:42.387]                     }
  [22:37:42.387]                     muffleCondition(cond, pattern = "^muffle")
  [22:37:42.387]                   }
  [22:37:42.387]                 }
  [22:37:42.387]                 else {
  [22:37:42.387]                   if (TRUE) {
  [22:37:42.387]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:37:42.387]                     {
  [22:37:42.387]                       inherits <- base::inherits
  [22:37:42.387]                       invokeRestart <- base::invokeRestart
  [22:37:42.387]                       is.null <- base::is.null
  [22:37:42.387]                       muffled <- FALSE
  [22:37:42.387]                       if (inherits(cond, "message")) {
  [22:37:42.387]                         muffled <- grepl(pattern, "muffleMessage")
  [22:37:42.387]                         if (muffled) 
  [22:37:42.387]                           invokeRestart("muffleMessage")
  [22:37:42.387]                       }
  [22:37:42.387]                       else if (inherits(cond, "warning")) {
  [22:37:42.387]                         muffled <- grepl(pattern, "muffleWarning")
  [22:37:42.387]                         if (muffled) 
  [22:37:42.387]                           invokeRestart("muffleWarning")
  [22:37:42.387]                       }
  [22:37:42.387]                       else if (inherits(cond, "condition")) {
  [22:37:42.387]                         if (!is.null(pattern)) {
  [22:37:42.387]                           computeRestarts <- base::computeRestarts
  [22:37:42.387]                           grepl <- base::grepl
  [22:37:42.387]                           restarts <- computeRestarts(cond)
  [22:37:42.387]                           for (restart in restarts) {
  [22:37:42.387]                             name <- restart$name
  [22:37:42.387]                             if (is.null(name)) 
  [22:37:42.387]                               next
  [22:37:42.387]                             if (!grepl(pattern, name)) 
  [22:37:42.387]                               next
  [22:37:42.387]                             invokeRestart(restart)
  [22:37:42.387]                             muffled <- TRUE
  [22:37:42.387]                             break
  [22:37:42.387]                           }
  [22:37:42.387]                         }
  [22:37:42.387]                       }
  [22:37:42.387]                       invisible(muffled)
  [22:37:42.387]                     }
  [22:37:42.387]                     muffleCondition(cond, pattern = "^muffle")
  [22:37:42.387]                   }
  [22:37:42.387]                 }
  [22:37:42.387]             }
  [22:37:42.387]         }))
  [22:37:42.387]     }, error = function(ex) {
  [22:37:42.387]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:37:42.387]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:37:42.387]                 ...future.rng), started = ...future.startTime, 
  [22:37:42.387]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:37:42.387]             version = "1.8"), class = "FutureResult")
  [22:37:42.387]     }, finally = {
  [22:37:42.387]         if (!identical(...future.workdir, getwd())) 
  [22:37:42.387]             setwd(...future.workdir)
  [22:37:42.387]         {
  [22:37:42.387]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:37:42.387]                 ...future.oldOptions$nwarnings <- NULL
  [22:37:42.387]             }
  [22:37:42.387]             base::options(...future.oldOptions)
  [22:37:42.387]             if (.Platform$OS.type == "windows") {
  [22:37:42.387]                 old_names <- names(...future.oldEnvVars)
  [22:37:42.387]                 envs <- base::Sys.getenv()
  [22:37:42.387]                 names <- names(envs)
  [22:37:42.387]                 common <- intersect(names, old_names)
  [22:37:42.387]                 added <- setdiff(names, old_names)
  [22:37:42.387]                 removed <- setdiff(old_names, names)
  [22:37:42.387]                 changed <- common[...future.oldEnvVars[common] != 
  [22:37:42.387]                   envs[common]]
  [22:37:42.387]                 NAMES <- toupper(changed)
  [22:37:42.387]                 args <- list()
  [22:37:42.387]                 for (kk in seq_along(NAMES)) {
  [22:37:42.387]                   name <- changed[[kk]]
  [22:37:42.387]                   NAME <- NAMES[[kk]]
  [22:37:42.387]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:42.387]                     next
  [22:37:42.387]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:37:42.387]                 }
  [22:37:42.387]                 NAMES <- toupper(added)
  [22:37:42.387]                 for (kk in seq_along(NAMES)) {
  [22:37:42.387]                   name <- added[[kk]]
  [22:37:42.387]                   NAME <- NAMES[[kk]]
  [22:37:42.387]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:42.387]                     next
  [22:37:42.387]                   args[[name]] <- ""
  [22:37:42.387]                 }
  [22:37:42.387]                 NAMES <- toupper(removed)
  [22:37:42.387]                 for (kk in seq_along(NAMES)) {
  [22:37:42.387]                   name <- removed[[kk]]
  [22:37:42.387]                   NAME <- NAMES[[kk]]
  [22:37:42.387]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:37:42.387]                     next
  [22:37:42.387]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:37:42.387]                 }
  [22:37:42.387]                 if (length(args) > 0) 
  [22:37:42.387]                   base::do.call(base::Sys.setenv, args = args)
  [22:37:42.387]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:37:42.387]             }
  [22:37:42.387]             else {
  [22:37:42.387]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:37:42.387]             }
  [22:37:42.387]             {
  [22:37:42.387]                 if (base::length(...future.futureOptionsAdded) > 
  [22:37:42.387]                   0L) {
  [22:37:42.387]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:37:42.387]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:37:42.387]                   base::options(opts)
  [22:37:42.387]                 }
  [22:37:42.387]                 {
  [22:37:42.387]                   NULL
  [22:37:42.387]                   options(future.plan = NULL)
  [22:37:42.387]                   if (is.na(NA_character_)) 
  [22:37:42.387]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:37:42.387]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:37:42.387]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:37:42.387]                     .init = FALSE)
  [22:37:42.387]                 }
  [22:37:42.387]             }
  [22:37:42.387]         }
  [22:37:42.387]     })
  [22:37:42.387]     if (TRUE) {
  [22:37:42.387]         base::sink(type = "output", split = FALSE)
  [22:37:42.387]         if (TRUE) {
  [22:37:42.387]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:37:42.387]         }
  [22:37:42.387]         else {
  [22:37:42.387]             ...future.result["stdout"] <- base::list(NULL)
  [22:37:42.387]         }
  [22:37:42.387]         base::close(...future.stdout)
  [22:37:42.387]         ...future.stdout <- NULL
  [22:37:42.387]     }
  [22:37:42.387]     ...future.result$conditions <- ...future.conditions
  [22:37:42.387]     ...future.result$finished <- base::Sys.time()
  [22:37:42.387]     ...future.result
  [22:37:42.387] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/future.tests-mirai_multisession.R’ failed.
Complete output:
  > if (requireNamespace("future.tests")) {
  +   mirai::daemons(0)  ## Reset any daemons running
  +   
  +   future.tests::check("future.mirai::mirai_multisession", timeout = 30.0, exit_value = FALSE)
  +   
  +   mirai::daemons(0)  ## Reset any daemons running
  +   gc()
  + }
  Loading required namespace: future.tests
  ── Settings ────────────────────────────────────────────────────────────────────
  - future.tests version      : 0.7.0
  - R_FUTURE_TESTS_ROOT       : 
  - Option 'future.tests.root': NULL
  - Default test set folder   : /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/future.tests/test-db
  - Max number of workers     : 2
  - Timeout                   : 30 seconds
  
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: <Anonymous> ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/globals,formulas.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:06.888] plan(): Setting new future strategy stack:
  [22:38:06.888] List of future strategies:
  [22:38:06.888] 1. mirai_multisession:
  [22:38:06.888]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:06.888]    - tweaked: FALSE
  [22:38:06.888]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:06.914] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:06.914] < mirai [$data] >
  [22:38:06.991] getGlobalsAndPackages() ...
  [22:38:06.992] Not searching for globals
  [22:38:06.992] - globals: [0] <none>
  [22:38:06.992] getGlobalsAndPackages() ... DONE
  [22:38:06.993] getGlobalsAndPackages() ...
  [22:38:06.993] 
  [22:38:06.994] - globals: [0] <none>
  [22:38:06.994] getGlobalsAndPackages() ... DONE
  [22:38:07.843] Packages needed by the future expression (n = 0): <none>
  [22:38:07.844] Packages needed by future strategies (n = 0): <none>
  [22:38:07.845] {
  [22:38:07.845]     {
  [22:38:07.845]         {
  [22:38:07.845]             ...future.startTime <- base::Sys.time()
  [22:38:07.845]             {
  [22:38:07.845]                 {
  [22:38:07.845]                   {
  [22:38:07.845]                     base::local({
  [22:38:07.845]                       has_future <- base::requireNamespace("future", 
  [22:38:07.845]                         quietly = TRUE)
  [22:38:07.845]                       if (has_future) {
  [22:38:07.845]                         ns <- base::getNamespace("future")
  [22:38:07.845]                         version <- ns[[".package"]][["version"]]
  [22:38:07.845]                         if (is.null(version)) 
  [22:38:07.845]                           version <- utils::packageVersion("future")
  [22:38:07.845]                       }
  [22:38:07.845]                       else {
  [22:38:07.845]                         version <- NULL
  [22:38:07.845]                       }
  [22:38:07.845]                       if (!has_future || version < "1.8.0") {
  [22:38:07.845]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:07.845]                           "", base::R.version$version.string), 
  [22:38:07.845]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:07.845]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:07.845]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:07.845]                             "release", "version")], collapse = " "), 
  [22:38:07.845]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:07.845]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:07.845]                           info)
  [22:38:07.845]                         info <- base::paste(info, collapse = "; ")
  [22:38:07.845]                         if (!has_future) {
  [22:38:07.845]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:07.845]                             info)
  [22:38:07.845]                         }
  [22:38:07.845]                         else {
  [22:38:07.845]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:07.845]                             info, version)
  [22:38:07.845]                         }
  [22:38:07.845]                         base::stop(msg)
  [22:38:07.845]                       }
  [22:38:07.845]                     })
  [22:38:07.845]                   }
  [22:38:07.845]                   ...future.strategy.old <- future::plan("list")
  [22:38:07.845]                   options(future.plan = NULL)
  [22:38:07.845]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:07.845]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:07.845]                 }
  [22:38:07.845]                 ...future.workdir <- getwd()
  [22:38:07.845]             }
  [22:38:07.845]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:07.845]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:07.845]         }
  [22:38:07.845]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:07.845]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:07.845]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:07.845]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:07.845]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:07.845]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:07.845]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:07.845]             base::names(...future.oldOptions))
  [22:38:07.845]     }
  [22:38:07.845]     if (FALSE) {
  [22:38:07.845]     }
  [22:38:07.845]     else {
  [22:38:07.845]         if (TRUE) {
  [22:38:07.845]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:07.845]                 open = "w")
  [22:38:07.845]         }
  [22:38:07.845]         else {
  [22:38:07.845]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:07.845]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:07.845]         }
  [22:38:07.845]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:07.845]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:07.845]             base::sink(type = "output", split = FALSE)
  [22:38:07.845]             base::close(...future.stdout)
  [22:38:07.845]         }, add = TRUE)
  [22:38:07.845]     }
  [22:38:07.845]     ...future.frame <- base::sys.nframe()
  [22:38:07.845]     ...future.conditions <- base::list()
  [22:38:07.845]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:07.845]     if (FALSE) {
  [22:38:07.845]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:07.845]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:07.845]     }
  [22:38:07.845]     ...future.result <- base::tryCatch({
  [22:38:07.845]         base::withCallingHandlers({
  [22:38:07.845]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:07.845]             future::FutureResult(value = ...future.value$value, 
  [22:38:07.845]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:07.845]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:07.845]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:07.845]                     ...future.globalenv.names))
  [22:38:07.845]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:07.845]         }, condition = base::local({
  [22:38:07.845]             c <- base::c
  [22:38:07.845]             inherits <- base::inherits
  [22:38:07.845]             invokeRestart <- base::invokeRestart
  [22:38:07.845]             length <- base::length
  [22:38:07.845]             list <- base::list
  [22:38:07.845]             seq.int <- base::seq.int
  [22:38:07.845]             signalCondition <- base::signalCondition
  [22:38:07.845]             sys.calls <- base::sys.calls
  [22:38:07.845]             `[[` <- base::`[[`
  [22:38:07.845]             `+` <- base::`+`
  [22:38:07.845]             `<<-` <- base::`<<-`
  [22:38:07.845]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:07.845]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:07.845]                   3L)]
  [22:38:07.845]             }
  [22:38:07.845]             function(cond) {
  [22:38:07.845]                 is_error <- inherits(cond, "error")
  [22:38:07.845]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:07.845]                   NULL)
  [22:38:07.845]                 if (is_error) {
  [22:38:07.845]                   sessionInformation <- function() {
  [22:38:07.845]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:07.845]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:07.845]                       search = base::search(), system = base::Sys.info())
  [22:38:07.845]                   }
  [22:38:07.845]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:07.845]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:07.845]                     cond$call), session = sessionInformation(), 
  [22:38:07.845]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:07.845]                   signalCondition(cond)
  [22:38:07.845]                 }
  [22:38:07.845]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:07.845]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:07.845]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:07.845]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:07.845]                   if (FALSE && !signal) {
  [22:38:07.845]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:07.845]                     {
  [22:38:07.845]                       inherits <- base::inherits
  [22:38:07.845]                       invokeRestart <- base::invokeRestart
  [22:38:07.845]                       is.null <- base::is.null
  [22:38:07.845]                       muffled <- FALSE
  [22:38:07.845]                       if (inherits(cond, "message")) {
  [22:38:07.845]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:07.845]                         if (muffled) 
  [22:38:07.845]                           invokeRestart("muffleMessage")
  [22:38:07.845]                       }
  [22:38:07.845]                       else if (inherits(cond, "warning")) {
  [22:38:07.845]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:07.845]                         if (muffled) 
  [22:38:07.845]                           invokeRestart("muffleWarning")
  [22:38:07.845]                       }
  [22:38:07.845]                       else if (inherits(cond, "condition")) {
  [22:38:07.845]                         if (!is.null(pattern)) {
  [22:38:07.845]                           computeRestarts <- base::computeRestarts
  [22:38:07.845]                           grepl <- base::grepl
  [22:38:07.845]                           restarts <- computeRestarts(cond)
  [22:38:07.845]                           for (restart in restarts) {
  [22:38:07.845]                             name <- restart$name
  [22:38:07.845]                             if (is.null(name)) 
  [22:38:07.845]                               next
  [22:38:07.845]                             if (!grepl(pattern, name)) 
  [22:38:07.845]                               next
  [22:38:07.845]                             invokeRestart(restart)
  [22:38:07.845]                             muffled <- TRUE
  [22:38:07.845]                             break
  [22:38:07.845]                           }
  [22:38:07.845]                         }
  [22:38:07.845]                       }
  [22:38:07.845]                       invisible(muffled)
  [22:38:07.845]                     }
  [22:38:07.845]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:07.845]                   }
  [22:38:07.845]                 }
  [22:38:07.845]                 else {
  [22:38:07.845]                   if (TRUE) {
  [22:38:07.845]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:07.845]                     {
  [22:38:07.845]                       inherits <- base::inherits
  [22:38:07.845]                       invokeRestart <- base::invokeRestart
  [22:38:07.845]                       is.null <- base::is.null
  [22:38:07.845]                       muffled <- FALSE
  [22:38:07.845]                       if (inherits(cond, "message")) {
  [22:38:07.845]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:07.845]                         if (muffled) 
  [22:38:07.845]                           invokeRestart("muffleMessage")
  [22:38:07.845]                       }
  [22:38:07.845]                       else if (inherits(cond, "warning")) {
  [22:38:07.845]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:07.845]                         if (muffled) 
  [22:38:07.845]                           invokeRestart("muffleWarning")
  [22:38:07.845]                       }
  [22:38:07.845]                       else if (inherits(cond, "condition")) {
  [22:38:07.845]                         if (!is.null(pattern)) {
  [22:38:07.845]                           computeRestarts <- base::computeRestarts
  [22:38:07.845]                           grepl <- base::grepl
  [22:38:07.845]                           restarts <- computeRestarts(cond)
  [22:38:07.845]                           for (restart in restarts) {
  [22:38:07.845]                             name <- restart$name
  [22:38:07.845]                             if (is.null(name)) 
  [22:38:07.845]                               next
  [22:38:07.845]                             if (!grepl(pattern, name)) 
  [22:38:07.845]                               next
  [22:38:07.845]                             invokeRestart(restart)
  [22:38:07.845]                             muffled <- TRUE
  [22:38:07.845]                             break
  [22:38:07.845]                           }
  [22:38:07.845]                         }
  [22:38:07.845]                       }
  [22:38:07.845]                       invisible(muffled)
  [22:38:07.845]                     }
  [22:38:07.845]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:07.845]                   }
  [22:38:07.845]                 }
  [22:38:07.845]             }
  [22:38:07.845]         }))
  [22:38:07.845]     }, error = function(ex) {
  [22:38:07.845]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:07.845]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:07.845]                 ...future.rng), started = ...future.startTime, 
  [22:38:07.845]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:07.845]             version = "1.8"), class = "FutureResult")
  [22:38:07.845]     }, finally = {
  [22:38:07.845]         if (!identical(...future.workdir, getwd())) 
  [22:38:07.845]             setwd(...future.workdir)
  [22:38:07.845]         {
  [22:38:07.845]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:07.845]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:07.845]             }
  [22:38:07.845]             base::options(...future.oldOptions)
  [22:38:07.845]             if (.Platform$OS.type == "windows") {
  [22:38:07.845]                 old_names <- names(...future.oldEnvVars)
  [22:38:07.845]                 envs <- base::Sys.getenv()
  [22:38:07.845]                 names <- names(envs)
  [22:38:07.845]                 common <- intersect(names, old_names)
  [22:38:07.845]                 added <- setdiff(names, old_names)
  [22:38:07.845]                 removed <- setdiff(old_names, names)
  [22:38:07.845]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:07.845]                   envs[common]]
  [22:38:07.845]                 NAMES <- toupper(changed)
  [22:38:07.845]                 args <- list()
  [22:38:07.845]                 for (kk in seq_along(NAMES)) {
  [22:38:07.845]                   name <- changed[[kk]]
  [22:38:07.845]                   NAME <- NAMES[[kk]]
  [22:38:07.845]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:07.845]                     next
  [22:38:07.845]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:07.845]                 }
  [22:38:07.845]                 NAMES <- toupper(added)
  [22:38:07.845]                 for (kk in seq_along(NAMES)) {
  [22:38:07.845]                   name <- added[[kk]]
  [22:38:07.845]                   NAME <- NAMES[[kk]]
  [22:38:07.845]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:07.845]                     next
  [22:38:07.845]                   args[[name]] <- ""
  [22:38:07.845]                 }
  [22:38:07.845]                 NAMES <- toupper(removed)
  [22:38:07.845]                 for (kk in seq_along(NAMES)) {
  [22:38:07.845]                   name <- removed[[kk]]
  [22:38:07.845]                   NAME <- NAMES[[kk]]
  [22:38:07.845]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:07.845]                     next
  [22:38:07.845]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:07.845]                 }
  [22:38:07.845]                 if (length(args) > 0) 
  [22:38:07.845]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:07.845]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:07.845]             }
  [22:38:07.845]             else {
  [22:38:07.845]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:07.845]             }
  [22:38:07.845]             {
  [22:38:07.845]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:07.845]                   0L) {
  [22:38:07.845]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:07.845]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:07.845]                   base::options(opts)
  [22:38:07.845]                 }
  [22:38:07.845]                 {
  [22:38:07.845]                   NULL
  [22:38:07.845]                   options(future.plan = NULL)
  [22:38:07.845]                   if (is.na(NA_character_)) 
  [22:38:07.845]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:07.845]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:07.845]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:07.845]                     .init = FALSE)
  [22:38:07.845]                 }
  [22:38:07.845]             }
  [22:38:07.845]         }
  [22:38:07.845]     })
  [22:38:07.845]     if (TRUE) {
  [22:38:07.845]         base::sink(type = "output", split = FALSE)
  [22:38:07.845]         if (TRUE) {
  [22:38:07.845]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:07.845]         }
  [22:38:07.845]         else {
  [22:38:07.845]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:07.845]         }
  [22:38:07.845]         base::close(...future.stdout)
  [22:38:07.845]         ...future.stdout <- NULL
  [22:38:07.845]     }
  [22:38:07.845]     ...future.result$conditions <- ...future.conditions
  [22:38:07.845]     ...future.result$finished <- base::Sys.time()
  [22:38:07.845]     ...future.result
  [22:38:07.845] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/globals,manual.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:08.596] plan(): Setting new future strategy stack:
  [22:38:08.596] List of future strategies:
  [22:38:08.596] 1. mirai_multisession:
  [22:38:08.596]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:08.596]    - tweaked: FALSE
  [22:38:08.596]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:08.625] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:08.625] < mirai [$data] >
  [22:38:08.700] getGlobalsAndPackages() ...
  [22:38:08.701] Not searching for globals
  [22:38:08.701] - globals: [0] <none>
  [22:38:08.701] getGlobalsAndPackages() ... DONE
  [22:38:08.702] getGlobalsAndPackages() ...
  [22:38:08.702] 
  [22:38:08.703] - globals: [0] <none>
  [22:38:08.703] getGlobalsAndPackages() ... DONE
  [22:38:09.737] Packages needed by the future expression (n = 0): <none>
  [22:38:09.738] Packages needed by future strategies (n = 0): <none>
  [22:38:09.739] {
  [22:38:09.739]     {
  [22:38:09.739]         {
  [22:38:09.739]             ...future.startTime <- base::Sys.time()
  [22:38:09.739]             {
  [22:38:09.739]                 {
  [22:38:09.739]                   {
  [22:38:09.739]                     base::local({
  [22:38:09.739]                       has_future <- base::requireNamespace("future", 
  [22:38:09.739]                         quietly = TRUE)
  [22:38:09.739]                       if (has_future) {
  [22:38:09.739]                         ns <- base::getNamespace("future")
  [22:38:09.739]                         version <- ns[[".package"]][["version"]]
  [22:38:09.739]                         if (is.null(version)) 
  [22:38:09.739]                           version <- utils::packageVersion("future")
  [22:38:09.739]                       }
  [22:38:09.739]                       else {
  [22:38:09.739]                         version <- NULL
  [22:38:09.739]                       }
  [22:38:09.739]                       if (!has_future || version < "1.8.0") {
  [22:38:09.739]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:09.739]                           "", base::R.version$version.string), 
  [22:38:09.739]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:09.739]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:09.739]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:09.739]                             "release", "version")], collapse = " "), 
  [22:38:09.739]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:09.739]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:09.739]                           info)
  [22:38:09.739]                         info <- base::paste(info, collapse = "; ")
  [22:38:09.739]                         if (!has_future) {
  [22:38:09.739]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:09.739]                             info)
  [22:38:09.739]                         }
  [22:38:09.739]                         else {
  [22:38:09.739]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:09.739]                             info, version)
  [22:38:09.739]                         }
  [22:38:09.739]                         base::stop(msg)
  [22:38:09.739]                       }
  [22:38:09.739]                     })
  [22:38:09.739]                   }
  [22:38:09.739]                   ...future.strategy.old <- future::plan("list")
  [22:38:09.739]                   options(future.plan = NULL)
  [22:38:09.739]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:09.739]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:09.739]                 }
  [22:38:09.739]                 ...future.workdir <- getwd()
  [22:38:09.739]             }
  [22:38:09.739]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:09.739]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:09.739]         }
  [22:38:09.739]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:09.739]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:09.739]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:09.739]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:09.739]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:09.739]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:09.739]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:09.739]             base::names(...future.oldOptions))
  [22:38:09.739]     }
  [22:38:09.739]     if (FALSE) {
  [22:38:09.739]     }
  [22:38:09.739]     else {
  [22:38:09.739]         if (TRUE) {
  [22:38:09.739]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:09.739]                 open = "w")
  [22:38:09.739]         }
  [22:38:09.739]         else {
  [22:38:09.739]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:09.739]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:09.739]         }
  [22:38:09.739]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:09.739]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:09.739]             base::sink(type = "output", split = FALSE)
  [22:38:09.739]             base::close(...future.stdout)
  [22:38:09.739]         }, add = TRUE)
  [22:38:09.739]     }
  [22:38:09.739]     ...future.frame <- base::sys.nframe()
  [22:38:09.739]     ...future.conditions <- base::list()
  [22:38:09.739]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:09.739]     if (FALSE) {
  [22:38:09.739]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:09.739]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:09.739]     }
  [22:38:09.739]     ...future.result <- base::tryCatch({
  [22:38:09.739]         base::withCallingHandlers({
  [22:38:09.739]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:09.739]             future::FutureResult(value = ...future.value$value, 
  [22:38:09.739]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:09.739]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:09.739]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:09.739]                     ...future.globalenv.names))
  [22:38:09.739]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:09.739]         }, condition = base::local({
  [22:38:09.739]             c <- base::c
  [22:38:09.739]             inherits <- base::inherits
  [22:38:09.739]             invokeRestart <- base::invokeRestart
  [22:38:09.739]             length <- base::length
  [22:38:09.739]             list <- base::list
  [22:38:09.739]             seq.int <- base::seq.int
  [22:38:09.739]             signalCondition <- base::signalCondition
  [22:38:09.739]             sys.calls <- base::sys.calls
  [22:38:09.739]             `[[` <- base::`[[`
  [22:38:09.739]             `+` <- base::`+`
  [22:38:09.739]             `<<-` <- base::`<<-`
  [22:38:09.739]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:09.739]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:09.739]                   3L)]
  [22:38:09.739]             }
  [22:38:09.739]             function(cond) {
  [22:38:09.739]                 is_error <- inherits(cond, "error")
  [22:38:09.739]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:09.739]                   NULL)
  [22:38:09.739]                 if (is_error) {
  [22:38:09.739]                   sessionInformation <- function() {
  [22:38:09.739]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:09.739]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:09.739]                       search = base::search(), system = base::Sys.info())
  [22:38:09.739]                   }
  [22:38:09.739]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:09.739]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:09.739]                     cond$call), session = sessionInformation(), 
  [22:38:09.739]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:09.739]                   signalCondition(cond)
  [22:38:09.739]                 }
  [22:38:09.739]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:09.739]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:09.739]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:09.739]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:09.739]                   if (FALSE && !signal) {
  [22:38:09.739]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:09.739]                     {
  [22:38:09.739]                       inherits <- base::inherits
  [22:38:09.739]                       invokeRestart <- base::invokeRestart
  [22:38:09.739]                       is.null <- base::is.null
  [22:38:09.739]                       muffled <- FALSE
  [22:38:09.739]                       if (inherits(cond, "message")) {
  [22:38:09.739]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:09.739]                         if (muffled) 
  [22:38:09.739]                           invokeRestart("muffleMessage")
  [22:38:09.739]                       }
  [22:38:09.739]                       else if (inherits(cond, "warning")) {
  [22:38:09.739]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:09.739]                         if (muffled) 
  [22:38:09.739]                           invokeRestart("muffleWarning")
  [22:38:09.739]                       }
  [22:38:09.739]                       else if (inherits(cond, "condition")) {
  [22:38:09.739]                         if (!is.null(pattern)) {
  [22:38:09.739]                           computeRestarts <- base::computeRestarts
  [22:38:09.739]                           grepl <- base::grepl
  [22:38:09.739]                           restarts <- computeRestarts(cond)
  [22:38:09.739]                           for (restart in restarts) {
  [22:38:09.739]                             name <- restart$name
  [22:38:09.739]                             if (is.null(name)) 
  [22:38:09.739]                               next
  [22:38:09.739]                             if (!grepl(pattern, name)) 
  [22:38:09.739]                               next
  [22:38:09.739]                             invokeRestart(restart)
  [22:38:09.739]                             muffled <- TRUE
  [22:38:09.739]                             break
  [22:38:09.739]                           }
  [22:38:09.739]                         }
  [22:38:09.739]                       }
  [22:38:09.739]                       invisible(muffled)
  [22:38:09.739]                     }
  [22:38:09.739]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:09.739]                   }
  [22:38:09.739]                 }
  [22:38:09.739]                 else {
  [22:38:09.739]                   if (TRUE) {
  [22:38:09.739]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:09.739]                     {
  [22:38:09.739]                       inherits <- base::inherits
  [22:38:09.739]                       invokeRestart <- base::invokeRestart
  [22:38:09.739]                       is.null <- base::is.null
  [22:38:09.739]                       muffled <- FALSE
  [22:38:09.739]                       if (inherits(cond, "message")) {
  [22:38:09.739]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:09.739]                         if (muffled) 
  [22:38:09.739]                           invokeRestart("muffleMessage")
  [22:38:09.739]                       }
  [22:38:09.739]                       else if (inherits(cond, "warning")) {
  [22:38:09.739]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:09.739]                         if (muffled) 
  [22:38:09.739]                           invokeRestart("muffleWarning")
  [22:38:09.739]                       }
  [22:38:09.739]                       else if (inherits(cond, "condition")) {
  [22:38:09.739]                         if (!is.null(pattern)) {
  [22:38:09.739]                           computeRestarts <- base::computeRestarts
  [22:38:09.739]                           grepl <- base::grepl
  [22:38:09.739]                           restarts <- computeRestarts(cond)
  [22:38:09.739]                           for (restart in restarts) {
  [22:38:09.739]                             name <- restart$name
  [22:38:09.739]                             if (is.null(name)) 
  [22:38:09.739]                               next
  [22:38:09.739]                             if (!grepl(pattern, name)) 
  [22:38:09.739]                               next
  [22:38:09.739]                             invokeRestart(restart)
  [22:38:09.739]                             muffled <- TRUE
  [22:38:09.739]                             break
  [22:38:09.739]                           }
  [22:38:09.739]                         }
  [22:38:09.739]                       }
  [22:38:09.739]                       invisible(muffled)
  [22:38:09.739]                     }
  [22:38:09.739]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:09.739]                   }
  [22:38:09.739]                 }
  [22:38:09.739]             }
  [22:38:09.739]         }))
  [22:38:09.739]     }, error = function(ex) {
  [22:38:09.739]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:09.739]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:09.739]                 ...future.rng), started = ...future.startTime, 
  [22:38:09.739]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:09.739]             version = "1.8"), class = "FutureResult")
  [22:38:09.739]     }, finally = {
  [22:38:09.739]         if (!identical(...future.workdir, getwd())) 
  [22:38:09.739]             setwd(...future.workdir)
  [22:38:09.739]         {
  [22:38:09.739]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:09.739]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:09.739]             }
  [22:38:09.739]             base::options(...future.oldOptions)
  [22:38:09.739]             if (.Platform$OS.type == "windows") {
  [22:38:09.739]                 old_names <- names(...future.oldEnvVars)
  [22:38:09.739]                 envs <- base::Sys.getenv()
  [22:38:09.739]                 names <- names(envs)
  [22:38:09.739]                 common <- intersect(names, old_names)
  [22:38:09.739]                 added <- setdiff(names, old_names)
  [22:38:09.739]                 removed <- setdiff(old_names, names)
  [22:38:09.739]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:09.739]                   envs[common]]
  [22:38:09.739]                 NAMES <- toupper(changed)
  [22:38:09.739]                 args <- list()
  [22:38:09.739]                 for (kk in seq_along(NAMES)) {
  [22:38:09.739]                   name <- changed[[kk]]
  [22:38:09.739]                   NAME <- NAMES[[kk]]
  [22:38:09.739]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:09.739]                     next
  [22:38:09.739]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:09.739]                 }
  [22:38:09.739]                 NAMES <- toupper(added)
  [22:38:09.739]                 for (kk in seq_along(NAMES)) {
  [22:38:09.739]                   name <- added[[kk]]
  [22:38:09.739]                   NAME <- NAMES[[kk]]
  [22:38:09.739]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:09.739]                     next
  [22:38:09.739]                   args[[name]] <- ""
  [22:38:09.739]                 }
  [22:38:09.739]                 NAMES <- toupper(removed)
  [22:38:09.739]                 for (kk in seq_along(NAMES)) {
  [22:38:09.739]                   name <- removed[[kk]]
  [22:38:09.739]                   NAME <- NAMES[[kk]]
  [22:38:09.739]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:09.739]                     next
  [22:38:09.739]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:09.739]                 }
  [22:38:09.739]                 if (length(args) > 0) 
  [22:38:09.739]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:09.739]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:09.739]             }
  [22:38:09.739]             else {
  [22:38:09.739]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:09.739]             }
  [22:38:09.739]             {
  [22:38:09.739]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:09.739]                   0L) {
  [22:38:09.739]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:09.739]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:09.739]                   base::options(opts)
  [22:38:09.739]                 }
  [22:38:09.739]                 {
  [22:38:09.739]                   NULL
  [22:38:09.739]                   options(future.plan = NULL)
  [22:38:09.739]                   if (is.na(NA_character_)) 
  [22:38:09.739]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:09.739]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:09.739]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:09.739]                     .init = FALSE)
  [22:38:09.739]                 }
  [22:38:09.739]             }
  [22:38:09.739]         }
  [22:38:09.739]     })
  [22:38:09.739]     if (TRUE) {
  [22:38:09.739]         base::sink(type = "output", split = FALSE)
  [22:38:09.739]         if (TRUE) {
  [22:38:09.739]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:09.739]         }
  [22:38:09.739]         else {
  [22:38:09.739]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:09.739]         }
  [22:38:09.739]         base::close(...future.stdout)
  [22:38:09.739]         ...future.stdout <- NULL
  [22:38:09.739]     }
  [22:38:09.739]     ...future.result$conditions <- ...future.conditions
  [22:38:09.739]     ...future.result$finished <- base::Sys.time()
  [22:38:09.739]     ...future.result
  [22:38:09.739] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/globals,nested.R’ failed.
Complete output:
  > ## This requires mirai (>= 0.13.2)
  > if (packageVersion("mirai") >= "0.13.2") {
  + library(future.mirai)
  + 
  + mirai::daemons(1, dispatcher = FALSE)
  + plan(mirai_cluster)
  + 
  + g <- function() 42
  + h <- function() g()
  + 
  + f <- future(h())
  + v <- value(f)
  + print(v)
  + stopifnot(v == h())
  + 
  + plan(sequential)
  + mirai::daemons(0)  ## Reset any daemons running
  + gc()
  + 
  + }
  Loading required package: future
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: plan ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/globals,subassignment.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:11.979] plan(): Setting new future strategy stack:
  [22:38:11.979] List of future strategies:
  [22:38:11.979] 1. mirai_multisession:
  [22:38:11.979]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:11.979]    - tweaked: FALSE
  [22:38:11.979]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:12.007] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:12.008] < mirai [$data] >
  [22:38:12.084] getGlobalsAndPackages() ...
  [22:38:12.084] Not searching for globals
  [22:38:12.084] - globals: [0] <none>
  [22:38:12.085] getGlobalsAndPackages() ... DONE
  [22:38:12.085] getGlobalsAndPackages() ...
  [22:38:12.086] 
  [22:38:12.086] - globals: [0] <none>
  [22:38:12.086] getGlobalsAndPackages() ... DONE
  [22:38:13.183] Packages needed by the future expression (n = 0): <none>
  [22:38:13.184] Packages needed by future strategies (n = 0): <none>
  [22:38:13.185] {
  [22:38:13.185]     {
  [22:38:13.185]         {
  [22:38:13.185]             ...future.startTime <- base::Sys.time()
  [22:38:13.185]             {
  [22:38:13.185]                 {
  [22:38:13.185]                   {
  [22:38:13.185]                     base::local({
  [22:38:13.185]                       has_future <- base::requireNamespace("future", 
  [22:38:13.185]                         quietly = TRUE)
  [22:38:13.185]                       if (has_future) {
  [22:38:13.185]                         ns <- base::getNamespace("future")
  [22:38:13.185]                         version <- ns[[".package"]][["version"]]
  [22:38:13.185]                         if (is.null(version)) 
  [22:38:13.185]                           version <- utils::packageVersion("future")
  [22:38:13.185]                       }
  [22:38:13.185]                       else {
  [22:38:13.185]                         version <- NULL
  [22:38:13.185]                       }
  [22:38:13.185]                       if (!has_future || version < "1.8.0") {
  [22:38:13.185]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:13.185]                           "", base::R.version$version.string), 
  [22:38:13.185]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:13.185]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:13.185]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:13.185]                             "release", "version")], collapse = " "), 
  [22:38:13.185]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:13.185]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:13.185]                           info)
  [22:38:13.185]                         info <- base::paste(info, collapse = "; ")
  [22:38:13.185]                         if (!has_future) {
  [22:38:13.185]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:13.185]                             info)
  [22:38:13.185]                         }
  [22:38:13.185]                         else {
  [22:38:13.185]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:13.185]                             info, version)
  [22:38:13.185]                         }
  [22:38:13.185]                         base::stop(msg)
  [22:38:13.185]                       }
  [22:38:13.185]                     })
  [22:38:13.185]                   }
  [22:38:13.185]                   ...future.strategy.old <- future::plan("list")
  [22:38:13.185]                   options(future.plan = NULL)
  [22:38:13.185]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:13.185]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:13.185]                 }
  [22:38:13.185]                 ...future.workdir <- getwd()
  [22:38:13.185]             }
  [22:38:13.185]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:13.185]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:13.185]         }
  [22:38:13.185]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:13.185]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:13.185]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:13.185]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:13.185]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:13.185]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:13.185]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:13.185]             base::names(...future.oldOptions))
  [22:38:13.185]     }
  [22:38:13.185]     if (FALSE) {
  [22:38:13.185]     }
  [22:38:13.185]     else {
  [22:38:13.185]         if (TRUE) {
  [22:38:13.185]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:13.185]                 open = "w")
  [22:38:13.185]         }
  [22:38:13.185]         else {
  [22:38:13.185]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:13.185]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:13.185]         }
  [22:38:13.185]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:13.185]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:13.185]             base::sink(type = "output", split = FALSE)
  [22:38:13.185]             base::close(...future.stdout)
  [22:38:13.185]         }, add = TRUE)
  [22:38:13.185]     }
  [22:38:13.185]     ...future.frame <- base::sys.nframe()
  [22:38:13.185]     ...future.conditions <- base::list()
  [22:38:13.185]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:13.185]     if (FALSE) {
  [22:38:13.185]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:13.185]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:13.185]     }
  [22:38:13.185]     ...future.result <- base::tryCatch({
  [22:38:13.185]         base::withCallingHandlers({
  [22:38:13.185]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:13.185]             future::FutureResult(value = ...future.value$value, 
  [22:38:13.185]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:13.185]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:13.185]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:13.185]                     ...future.globalenv.names))
  [22:38:13.185]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:13.185]         }, condition = base::local({
  [22:38:13.185]             c <- base::c
  [22:38:13.185]             inherits <- base::inherits
  [22:38:13.185]             invokeRestart <- base::invokeRestart
  [22:38:13.185]             length <- base::length
  [22:38:13.185]             list <- base::list
  [22:38:13.185]             seq.int <- base::seq.int
  [22:38:13.185]             signalCondition <- base::signalCondition
  [22:38:13.185]             sys.calls <- base::sys.calls
  [22:38:13.185]             `[[` <- base::`[[`
  [22:38:13.185]             `+` <- base::`+`
  [22:38:13.185]             `<<-` <- base::`<<-`
  [22:38:13.185]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:13.185]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:13.185]                   3L)]
  [22:38:13.185]             }
  [22:38:13.185]             function(cond) {
  [22:38:13.185]                 is_error <- inherits(cond, "error")
  [22:38:13.185]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:13.185]                   NULL)
  [22:38:13.185]                 if (is_error) {
  [22:38:13.185]                   sessionInformation <- function() {
  [22:38:13.185]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:13.185]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:13.185]                       search = base::search(), system = base::Sys.info())
  [22:38:13.185]                   }
  [22:38:13.185]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:13.185]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:13.185]                     cond$call), session = sessionInformation(), 
  [22:38:13.185]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:13.185]                   signalCondition(cond)
  [22:38:13.185]                 }
  [22:38:13.185]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:13.185]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:13.185]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:13.185]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:13.185]                   if (FALSE && !signal) {
  [22:38:13.185]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:13.185]                     {
  [22:38:13.185]                       inherits <- base::inherits
  [22:38:13.185]                       invokeRestart <- base::invokeRestart
  [22:38:13.185]                       is.null <- base::is.null
  [22:38:13.185]                       muffled <- FALSE
  [22:38:13.185]                       if (inherits(cond, "message")) {
  [22:38:13.185]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:13.185]                         if (muffled) 
  [22:38:13.185]                           invokeRestart("muffleMessage")
  [22:38:13.185]                       }
  [22:38:13.185]                       else if (inherits(cond, "warning")) {
  [22:38:13.185]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:13.185]                         if (muffled) 
  [22:38:13.185]                           invokeRestart("muffleWarning")
  [22:38:13.185]                       }
  [22:38:13.185]                       else if (inherits(cond, "condition")) {
  [22:38:13.185]                         if (!is.null(pattern)) {
  [22:38:13.185]                           computeRestarts <- base::computeRestarts
  [22:38:13.185]                           grepl <- base::grepl
  [22:38:13.185]                           restarts <- computeRestarts(cond)
  [22:38:13.185]                           for (restart in restarts) {
  [22:38:13.185]                             name <- restart$name
  [22:38:13.185]                             if (is.null(name)) 
  [22:38:13.185]                               next
  [22:38:13.185]                             if (!grepl(pattern, name)) 
  [22:38:13.185]                               next
  [22:38:13.185]                             invokeRestart(restart)
  [22:38:13.185]                             muffled <- TRUE
  [22:38:13.185]                             break
  [22:38:13.185]                           }
  [22:38:13.185]                         }
  [22:38:13.185]                       }
  [22:38:13.185]                       invisible(muffled)
  [22:38:13.185]                     }
  [22:38:13.185]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:13.185]                   }
  [22:38:13.185]                 }
  [22:38:13.185]                 else {
  [22:38:13.185]                   if (TRUE) {
  [22:38:13.185]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:13.185]                     {
  [22:38:13.185]                       inherits <- base::inherits
  [22:38:13.185]                       invokeRestart <- base::invokeRestart
  [22:38:13.185]                       is.null <- base::is.null
  [22:38:13.185]                       muffled <- FALSE
  [22:38:13.185]                       if (inherits(cond, "message")) {
  [22:38:13.185]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:13.185]                         if (muffled) 
  [22:38:13.185]                           invokeRestart("muffleMessage")
  [22:38:13.185]                       }
  [22:38:13.185]                       else if (inherits(cond, "warning")) {
  [22:38:13.185]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:13.185]                         if (muffled) 
  [22:38:13.185]                           invokeRestart("muffleWarning")
  [22:38:13.185]                       }
  [22:38:13.185]                       else if (inherits(cond, "condition")) {
  [22:38:13.185]                         if (!is.null(pattern)) {
  [22:38:13.185]                           computeRestarts <- base::computeRestarts
  [22:38:13.185]                           grepl <- base::grepl
  [22:38:13.185]                           restarts <- computeRestarts(cond)
  [22:38:13.185]                           for (restart in restarts) {
  [22:38:13.185]                             name <- restart$name
  [22:38:13.185]                             if (is.null(name)) 
  [22:38:13.185]                               next
  [22:38:13.185]                             if (!grepl(pattern, name)) 
  [22:38:13.185]                               next
  [22:38:13.185]                             invokeRestart(restart)
  [22:38:13.185]                             muffled <- TRUE
  [22:38:13.185]                             break
  [22:38:13.185]                           }
  [22:38:13.185]                         }
  [22:38:13.185]                       }
  [22:38:13.185]                       invisible(muffled)
  [22:38:13.185]                     }
  [22:38:13.185]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:13.185]                   }
  [22:38:13.185]                 }
  [22:38:13.185]             }
  [22:38:13.185]         }))
  [22:38:13.185]     }, error = function(ex) {
  [22:38:13.185]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:13.185]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:13.185]                 ...future.rng), started = ...future.startTime, 
  [22:38:13.185]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:13.185]             version = "1.8"), class = "FutureResult")
  [22:38:13.185]     }, finally = {
  [22:38:13.185]         if (!identical(...future.workdir, getwd())) 
  [22:38:13.185]             setwd(...future.workdir)
  [22:38:13.185]         {
  [22:38:13.185]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:13.185]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:13.185]             }
  [22:38:13.185]             base::options(...future.oldOptions)
  [22:38:13.185]             if (.Platform$OS.type == "windows") {
  [22:38:13.185]                 old_names <- names(...future.oldEnvVars)
  [22:38:13.185]                 envs <- base::Sys.getenv()
  [22:38:13.185]                 names <- names(envs)
  [22:38:13.185]                 common <- intersect(names, old_names)
  [22:38:13.185]                 added <- setdiff(names, old_names)
  [22:38:13.185]                 removed <- setdiff(old_names, names)
  [22:38:13.185]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:13.185]                   envs[common]]
  [22:38:13.185]                 NAMES <- toupper(changed)
  [22:38:13.185]                 args <- list()
  [22:38:13.185]                 for (kk in seq_along(NAMES)) {
  [22:38:13.185]                   name <- changed[[kk]]
  [22:38:13.185]                   NAME <- NAMES[[kk]]
  [22:38:13.185]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:13.185]                     next
  [22:38:13.185]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:13.185]                 }
  [22:38:13.185]                 NAMES <- toupper(added)
  [22:38:13.185]                 for (kk in seq_along(NAMES)) {
  [22:38:13.185]                   name <- added[[kk]]
  [22:38:13.185]                   NAME <- NAMES[[kk]]
  [22:38:13.185]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:13.185]                     next
  [22:38:13.185]                   args[[name]] <- ""
  [22:38:13.185]                 }
  [22:38:13.185]                 NAMES <- toupper(removed)
  [22:38:13.185]                 for (kk in seq_along(NAMES)) {
  [22:38:13.185]                   name <- removed[[kk]]
  [22:38:13.185]                   NAME <- NAMES[[kk]]
  [22:38:13.185]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:13.185]                     next
  [22:38:13.185]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:13.185]                 }
  [22:38:13.185]                 if (length(args) > 0) 
  [22:38:13.185]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:13.185]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:13.185]             }
  [22:38:13.185]             else {
  [22:38:13.185]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:13.185]             }
  [22:38:13.185]             {
  [22:38:13.185]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:13.185]                   0L) {
  [22:38:13.185]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:13.185]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:13.185]                   base::options(opts)
  [22:38:13.185]                 }
  [22:38:13.185]                 {
  [22:38:13.185]                   NULL
  [22:38:13.185]                   options(future.plan = NULL)
  [22:38:13.185]                   if (is.na(NA_character_)) 
  [22:38:13.185]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:13.185]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:13.185]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:13.185]                     .init = FALSE)
  [22:38:13.185]                 }
  [22:38:13.185]             }
  [22:38:13.185]         }
  [22:38:13.185]     })
  [22:38:13.185]     if (TRUE) {
  [22:38:13.185]         base::sink(type = "output", split = FALSE)
  [22:38:13.185]         if (TRUE) {
  [22:38:13.185]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:13.185]         }
  [22:38:13.185]         else {
  [22:38:13.185]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:13.185]         }
  [22:38:13.185]         base::close(...future.stdout)
  [22:38:13.185]         ...future.stdout <- NULL
  [22:38:13.185]     }
  [22:38:13.185]     ...future.result$conditions <- ...future.conditions
  [22:38:13.185]     ...future.result$finished <- base::Sys.time()
  [22:38:13.185]     ...future.result
  [22:38:13.185] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/globals,tricky.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:13.951] plan(): Setting new future strategy stack:
  [22:38:13.952] List of future strategies:
  [22:38:13.952] 1. mirai_multisession:
  [22:38:13.952]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:13.952]    - tweaked: FALSE
  [22:38:13.952]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:13.979] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:13.979] < mirai [$data] >
  [22:38:14.047] getGlobalsAndPackages() ...
  [22:38:14.047] Not searching for globals
  [22:38:14.048] - globals: [0] <none>
  [22:38:14.048] getGlobalsAndPackages() ... DONE
  [22:38:14.049] getGlobalsAndPackages() ...
  [22:38:14.049] 
  [22:38:14.049] - globals: [0] <none>
  [22:38:14.050] getGlobalsAndPackages() ... DONE
  [22:38:15.251] Packages needed by the future expression (n = 0): <none>
  [22:38:15.251] Packages needed by future strategies (n = 0): <none>
  [22:38:15.253] {
  [22:38:15.253]     {
  [22:38:15.253]         {
  [22:38:15.253]             ...future.startTime <- base::Sys.time()
  [22:38:15.253]             {
  [22:38:15.253]                 {
  [22:38:15.253]                   {
  [22:38:15.253]                     base::local({
  [22:38:15.253]                       has_future <- base::requireNamespace("future", 
  [22:38:15.253]                         quietly = TRUE)
  [22:38:15.253]                       if (has_future) {
  [22:38:15.253]                         ns <- base::getNamespace("future")
  [22:38:15.253]                         version <- ns[[".package"]][["version"]]
  [22:38:15.253]                         if (is.null(version)) 
  [22:38:15.253]                           version <- utils::packageVersion("future")
  [22:38:15.253]                       }
  [22:38:15.253]                       else {
  [22:38:15.253]                         version <- NULL
  [22:38:15.253]                       }
  [22:38:15.253]                       if (!has_future || version < "1.8.0") {
  [22:38:15.253]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:15.253]                           "", base::R.version$version.string), 
  [22:38:15.253]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:15.253]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:15.253]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:15.253]                             "release", "version")], collapse = " "), 
  [22:38:15.253]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:15.253]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:15.253]                           info)
  [22:38:15.253]                         info <- base::paste(info, collapse = "; ")
  [22:38:15.253]                         if (!has_future) {
  [22:38:15.253]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:15.253]                             info)
  [22:38:15.253]                         }
  [22:38:15.253]                         else {
  [22:38:15.253]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:15.253]                             info, version)
  [22:38:15.253]                         }
  [22:38:15.253]                         base::stop(msg)
  [22:38:15.253]                       }
  [22:38:15.253]                     })
  [22:38:15.253]                   }
  [22:38:15.253]                   ...future.strategy.old <- future::plan("list")
  [22:38:15.253]                   options(future.plan = NULL)
  [22:38:15.253]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:15.253]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:15.253]                 }
  [22:38:15.253]                 ...future.workdir <- getwd()
  [22:38:15.253]             }
  [22:38:15.253]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:15.253]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:15.253]         }
  [22:38:15.253]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:15.253]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:15.253]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:15.253]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:15.253]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:15.253]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:15.253]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:15.253]             base::names(...future.oldOptions))
  [22:38:15.253]     }
  [22:38:15.253]     if (FALSE) {
  [22:38:15.253]     }
  [22:38:15.253]     else {
  [22:38:15.253]         if (TRUE) {
  [22:38:15.253]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:15.253]                 open = "w")
  [22:38:15.253]         }
  [22:38:15.253]         else {
  [22:38:15.253]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:15.253]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:15.253]         }
  [22:38:15.253]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:15.253]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:15.253]             base::sink(type = "output", split = FALSE)
  [22:38:15.253]             base::close(...future.stdout)
  [22:38:15.253]         }, add = TRUE)
  [22:38:15.253]     }
  [22:38:15.253]     ...future.frame <- base::sys.nframe()
  [22:38:15.253]     ...future.conditions <- base::list()
  [22:38:15.253]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:15.253]     if (FALSE) {
  [22:38:15.253]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:15.253]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:15.253]     }
  [22:38:15.253]     ...future.result <- base::tryCatch({
  [22:38:15.253]         base::withCallingHandlers({
  [22:38:15.253]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:15.253]             future::FutureResult(value = ...future.value$value, 
  [22:38:15.253]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:15.253]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:15.253]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:15.253]                     ...future.globalenv.names))
  [22:38:15.253]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:15.253]         }, condition = base::local({
  [22:38:15.253]             c <- base::c
  [22:38:15.253]             inherits <- base::inherits
  [22:38:15.253]             invokeRestart <- base::invokeRestart
  [22:38:15.253]             length <- base::length
  [22:38:15.253]             list <- base::list
  [22:38:15.253]             seq.int <- base::seq.int
  [22:38:15.253]             signalCondition <- base::signalCondition
  [22:38:15.253]             sys.calls <- base::sys.calls
  [22:38:15.253]             `[[` <- base::`[[`
  [22:38:15.253]             `+` <- base::`+`
  [22:38:15.253]             `<<-` <- base::`<<-`
  [22:38:15.253]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:15.253]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:15.253]                   3L)]
  [22:38:15.253]             }
  [22:38:15.253]             function(cond) {
  [22:38:15.253]                 is_error <- inherits(cond, "error")
  [22:38:15.253]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:15.253]                   NULL)
  [22:38:15.253]                 if (is_error) {
  [22:38:15.253]                   sessionInformation <- function() {
  [22:38:15.253]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:15.253]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:15.253]                       search = base::search(), system = base::Sys.info())
  [22:38:15.253]                   }
  [22:38:15.253]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:15.253]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:15.253]                     cond$call), session = sessionInformation(), 
  [22:38:15.253]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:15.253]                   signalCondition(cond)
  [22:38:15.253]                 }
  [22:38:15.253]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:15.253]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:15.253]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:15.253]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:15.253]                   if (FALSE && !signal) {
  [22:38:15.253]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:15.253]                     {
  [22:38:15.253]                       inherits <- base::inherits
  [22:38:15.253]                       invokeRestart <- base::invokeRestart
  [22:38:15.253]                       is.null <- base::is.null
  [22:38:15.253]                       muffled <- FALSE
  [22:38:15.253]                       if (inherits(cond, "message")) {
  [22:38:15.253]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:15.253]                         if (muffled) 
  [22:38:15.253]                           invokeRestart("muffleMessage")
  [22:38:15.253]                       }
  [22:38:15.253]                       else if (inherits(cond, "warning")) {
  [22:38:15.253]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:15.253]                         if (muffled) 
  [22:38:15.253]                           invokeRestart("muffleWarning")
  [22:38:15.253]                       }
  [22:38:15.253]                       else if (inherits(cond, "condition")) {
  [22:38:15.253]                         if (!is.null(pattern)) {
  [22:38:15.253]                           computeRestarts <- base::computeRestarts
  [22:38:15.253]                           grepl <- base::grepl
  [22:38:15.253]                           restarts <- computeRestarts(cond)
  [22:38:15.253]                           for (restart in restarts) {
  [22:38:15.253]                             name <- restart$name
  [22:38:15.253]                             if (is.null(name)) 
  [22:38:15.253]                               next
  [22:38:15.253]                             if (!grepl(pattern, name)) 
  [22:38:15.253]                               next
  [22:38:15.253]                             invokeRestart(restart)
  [22:38:15.253]                             muffled <- TRUE
  [22:38:15.253]                             break
  [22:38:15.253]                           }
  [22:38:15.253]                         }
  [22:38:15.253]                       }
  [22:38:15.253]                       invisible(muffled)
  [22:38:15.253]                     }
  [22:38:15.253]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:15.253]                   }
  [22:38:15.253]                 }
  [22:38:15.253]                 else {
  [22:38:15.253]                   if (TRUE) {
  [22:38:15.253]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:15.253]                     {
  [22:38:15.253]                       inherits <- base::inherits
  [22:38:15.253]                       invokeRestart <- base::invokeRestart
  [22:38:15.253]                       is.null <- base::is.null
  [22:38:15.253]                       muffled <- FALSE
  [22:38:15.253]                       if (inherits(cond, "message")) {
  [22:38:15.253]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:15.253]                         if (muffled) 
  [22:38:15.253]                           invokeRestart("muffleMessage")
  [22:38:15.253]                       }
  [22:38:15.253]                       else if (inherits(cond, "warning")) {
  [22:38:15.253]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:15.253]                         if (muffled) 
  [22:38:15.253]                           invokeRestart("muffleWarning")
  [22:38:15.253]                       }
  [22:38:15.253]                       else if (inherits(cond, "condition")) {
  [22:38:15.253]                         if (!is.null(pattern)) {
  [22:38:15.253]                           computeRestarts <- base::computeRestarts
  [22:38:15.253]                           grepl <- base::grepl
  [22:38:15.253]                           restarts <- computeRestarts(cond)
  [22:38:15.253]                           for (restart in restarts) {
  [22:38:15.253]                             name <- restart$name
  [22:38:15.253]                             if (is.null(name)) 
  [22:38:15.253]                               next
  [22:38:15.253]                             if (!grepl(pattern, name)) 
  [22:38:15.253]                               next
  [22:38:15.253]                             invokeRestart(restart)
  [22:38:15.253]                             muffled <- TRUE
  [22:38:15.253]                             break
  [22:38:15.253]                           }
  [22:38:15.253]                         }
  [22:38:15.253]                       }
  [22:38:15.253]                       invisible(muffled)
  [22:38:15.253]                     }
  [22:38:15.253]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:15.253]                   }
  [22:38:15.253]                 }
  [22:38:15.253]             }
  [22:38:15.253]         }))
  [22:38:15.253]     }, error = function(ex) {
  [22:38:15.253]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:15.253]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:15.253]                 ...future.rng), started = ...future.startTime, 
  [22:38:15.253]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:15.253]             version = "1.8"), class = "FutureResult")
  [22:38:15.253]     }, finally = {
  [22:38:15.253]         if (!identical(...future.workdir, getwd())) 
  [22:38:15.253]             setwd(...future.workdir)
  [22:38:15.253]         {
  [22:38:15.253]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:15.253]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:15.253]             }
  [22:38:15.253]             base::options(...future.oldOptions)
  [22:38:15.253]             if (.Platform$OS.type == "windows") {
  [22:38:15.253]                 old_names <- names(...future.oldEnvVars)
  [22:38:15.253]                 envs <- base::Sys.getenv()
  [22:38:15.253]                 names <- names(envs)
  [22:38:15.253]                 common <- intersect(names, old_names)
  [22:38:15.253]                 added <- setdiff(names, old_names)
  [22:38:15.253]                 removed <- setdiff(old_names, names)
  [22:38:15.253]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:15.253]                   envs[common]]
  [22:38:15.253]                 NAMES <- toupper(changed)
  [22:38:15.253]                 args <- list()
  [22:38:15.253]                 for (kk in seq_along(NAMES)) {
  [22:38:15.253]                   name <- changed[[kk]]
  [22:38:15.253]                   NAME <- NAMES[[kk]]
  [22:38:15.253]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:15.253]                     next
  [22:38:15.253]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:15.253]                 }
  [22:38:15.253]                 NAMES <- toupper(added)
  [22:38:15.253]                 for (kk in seq_along(NAMES)) {
  [22:38:15.253]                   name <- added[[kk]]
  [22:38:15.253]                   NAME <- NAMES[[kk]]
  [22:38:15.253]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:15.253]                     next
  [22:38:15.253]                   args[[name]] <- ""
  [22:38:15.253]                 }
  [22:38:15.253]                 NAMES <- toupper(removed)
  [22:38:15.253]                 for (kk in seq_along(NAMES)) {
  [22:38:15.253]                   name <- removed[[kk]]
  [22:38:15.253]                   NAME <- NAMES[[kk]]
  [22:38:15.253]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:15.253]                     next
  [22:38:15.253]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:15.253]                 }
  [22:38:15.253]                 if (length(args) > 0) 
  [22:38:15.253]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:15.253]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:15.253]             }
  [22:38:15.253]             else {
  [22:38:15.253]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:15.253]             }
  [22:38:15.253]             {
  [22:38:15.253]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:15.253]                   0L) {
  [22:38:15.253]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:15.253]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:15.253]                   base::options(opts)
  [22:38:15.253]                 }
  [22:38:15.253]                 {
  [22:38:15.253]                   NULL
  [22:38:15.253]                   options(future.plan = NULL)
  [22:38:15.253]                   if (is.na(NA_character_)) 
  [22:38:15.253]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:15.253]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:15.253]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:15.253]                     .init = FALSE)
  [22:38:15.253]                 }
  [22:38:15.253]             }
  [22:38:15.253]         }
  [22:38:15.253]     })
  [22:38:15.253]     if (TRUE) {
  [22:38:15.253]         base::sink(type = "output", split = FALSE)
  [22:38:15.253]         if (TRUE) {
  [22:38:15.253]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:15.253]         }
  [22:38:15.253]         else {
  [22:38:15.253]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:15.253]         }
  [22:38:15.253]         base::close(...future.stdout)
  [22:38:15.253]         ...future.stdout <- NULL
  [22:38:15.253]     }
  [22:38:15.253]     ...future.result$conditions <- ...future.conditions
  [22:38:15.253]     ...future.result$finished <- base::Sys.time()
  [22:38:15.253]     ...future.result
  [22:38:15.253] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/mirai_cluster,worker-termination.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:16.113] plan(): Setting new future strategy stack:
  [22:38:16.113] List of future strategies:
  [22:38:16.113] 1. mirai_multisession:
  [22:38:16.113]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:16.113]    - tweaked: FALSE
  [22:38:16.113]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:16.138] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:16.139] < mirai [$data] >
  [22:38:16.221] getGlobalsAndPackages() ...
  [22:38:16.222] Not searching for globals
  [22:38:16.222] - globals: [0] <none>
  [22:38:16.223] getGlobalsAndPackages() ... DONE
  [22:38:16.223] getGlobalsAndPackages() ...
  [22:38:16.224] 
  [22:38:16.224] - globals: [0] <none>
  [22:38:16.224] getGlobalsAndPackages() ... DONE
  [22:38:17.460] Packages needed by the future expression (n = 0): <none>
  [22:38:17.460] Packages needed by future strategies (n = 0): <none>
  [22:38:17.462] {
  [22:38:17.462]     {
  [22:38:17.462]         {
  [22:38:17.462]             ...future.startTime <- base::Sys.time()
  [22:38:17.462]             {
  [22:38:17.462]                 {
  [22:38:17.462]                   {
  [22:38:17.462]                     base::local({
  [22:38:17.462]                       has_future <- base::requireNamespace("future", 
  [22:38:17.462]                         quietly = TRUE)
  [22:38:17.462]                       if (has_future) {
  [22:38:17.462]                         ns <- base::getNamespace("future")
  [22:38:17.462]                         version <- ns[[".package"]][["version"]]
  [22:38:17.462]                         if (is.null(version)) 
  [22:38:17.462]                           version <- utils::packageVersion("future")
  [22:38:17.462]                       }
  [22:38:17.462]                       else {
  [22:38:17.462]                         version <- NULL
  [22:38:17.462]                       }
  [22:38:17.462]                       if (!has_future || version < "1.8.0") {
  [22:38:17.462]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:17.462]                           "", base::R.version$version.string), 
  [22:38:17.462]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:17.462]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:17.462]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:17.462]                             "release", "version")], collapse = " "), 
  [22:38:17.462]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:17.462]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:17.462]                           info)
  [22:38:17.462]                         info <- base::paste(info, collapse = "; ")
  [22:38:17.462]                         if (!has_future) {
  [22:38:17.462]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:17.462]                             info)
  [22:38:17.462]                         }
  [22:38:17.462]                         else {
  [22:38:17.462]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:17.462]                             info, version)
  [22:38:17.462]                         }
  [22:38:17.462]                         base::stop(msg)
  [22:38:17.462]                       }
  [22:38:17.462]                     })
  [22:38:17.462]                   }
  [22:38:17.462]                   ...future.strategy.old <- future::plan("list")
  [22:38:17.462]                   options(future.plan = NULL)
  [22:38:17.462]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:17.462]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:17.462]                 }
  [22:38:17.462]                 ...future.workdir <- getwd()
  [22:38:17.462]             }
  [22:38:17.462]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:17.462]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:17.462]         }
  [22:38:17.462]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:17.462]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:17.462]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:17.462]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:17.462]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:17.462]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:17.462]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:17.462]             base::names(...future.oldOptions))
  [22:38:17.462]     }
  [22:38:17.462]     if (FALSE) {
  [22:38:17.462]     }
  [22:38:17.462]     else {
  [22:38:17.462]         if (TRUE) {
  [22:38:17.462]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:17.462]                 open = "w")
  [22:38:17.462]         }
  [22:38:17.462]         else {
  [22:38:17.462]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:17.462]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:17.462]         }
  [22:38:17.462]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:17.462]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:17.462]             base::sink(type = "output", split = FALSE)
  [22:38:17.462]             base::close(...future.stdout)
  [22:38:17.462]         }, add = TRUE)
  [22:38:17.462]     }
  [22:38:17.462]     ...future.frame <- base::sys.nframe()
  [22:38:17.462]     ...future.conditions <- base::list()
  [22:38:17.462]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:17.462]     if (FALSE) {
  [22:38:17.462]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:17.462]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:17.462]     }
  [22:38:17.462]     ...future.result <- base::tryCatch({
  [22:38:17.462]         base::withCallingHandlers({
  [22:38:17.462]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:17.462]             future::FutureResult(value = ...future.value$value, 
  [22:38:17.462]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:17.462]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:17.462]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:17.462]                     ...future.globalenv.names))
  [22:38:17.462]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:17.462]         }, condition = base::local({
  [22:38:17.462]             c <- base::c
  [22:38:17.462]             inherits <- base::inherits
  [22:38:17.462]             invokeRestart <- base::invokeRestart
  [22:38:17.462]             length <- base::length
  [22:38:17.462]             list <- base::list
  [22:38:17.462]             seq.int <- base::seq.int
  [22:38:17.462]             signalCondition <- base::signalCondition
  [22:38:17.462]             sys.calls <- base::sys.calls
  [22:38:17.462]             `[[` <- base::`[[`
  [22:38:17.462]             `+` <- base::`+`
  [22:38:17.462]             `<<-` <- base::`<<-`
  [22:38:17.462]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:17.462]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:17.462]                   3L)]
  [22:38:17.462]             }
  [22:38:17.462]             function(cond) {
  [22:38:17.462]                 is_error <- inherits(cond, "error")
  [22:38:17.462]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:17.462]                   NULL)
  [22:38:17.462]                 if (is_error) {
  [22:38:17.462]                   sessionInformation <- function() {
  [22:38:17.462]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:17.462]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:17.462]                       search = base::search(), system = base::Sys.info())
  [22:38:17.462]                   }
  [22:38:17.462]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:17.462]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:17.462]                     cond$call), session = sessionInformation(), 
  [22:38:17.462]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:17.462]                   signalCondition(cond)
  [22:38:17.462]                 }
  [22:38:17.462]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:17.462]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:17.462]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:17.462]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:17.462]                   if (FALSE && !signal) {
  [22:38:17.462]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:17.462]                     {
  [22:38:17.462]                       inherits <- base::inherits
  [22:38:17.462]                       invokeRestart <- base::invokeRestart
  [22:38:17.462]                       is.null <- base::is.null
  [22:38:17.462]                       muffled <- FALSE
  [22:38:17.462]                       if (inherits(cond, "message")) {
  [22:38:17.462]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:17.462]                         if (muffled) 
  [22:38:17.462]                           invokeRestart("muffleMessage")
  [22:38:17.462]                       }
  [22:38:17.462]                       else if (inherits(cond, "warning")) {
  [22:38:17.462]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:17.462]                         if (muffled) 
  [22:38:17.462]                           invokeRestart("muffleWarning")
  [22:38:17.462]                       }
  [22:38:17.462]                       else if (inherits(cond, "condition")) {
  [22:38:17.462]                         if (!is.null(pattern)) {
  [22:38:17.462]                           computeRestarts <- base::computeRestarts
  [22:38:17.462]                           grepl <- base::grepl
  [22:38:17.462]                           restarts <- computeRestarts(cond)
  [22:38:17.462]                           for (restart in restarts) {
  [22:38:17.462]                             name <- restart$name
  [22:38:17.462]                             if (is.null(name)) 
  [22:38:17.462]                               next
  [22:38:17.462]                             if (!grepl(pattern, name)) 
  [22:38:17.462]                               next
  [22:38:17.462]                             invokeRestart(restart)
  [22:38:17.462]                             muffled <- TRUE
  [22:38:17.462]                             break
  [22:38:17.462]                           }
  [22:38:17.462]                         }
  [22:38:17.462]                       }
  [22:38:17.462]                       invisible(muffled)
  [22:38:17.462]                     }
  [22:38:17.462]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:17.462]                   }
  [22:38:17.462]                 }
  [22:38:17.462]                 else {
  [22:38:17.462]                   if (TRUE) {
  [22:38:17.462]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:17.462]                     {
  [22:38:17.462]                       inherits <- base::inherits
  [22:38:17.462]                       invokeRestart <- base::invokeRestart
  [22:38:17.462]                       is.null <- base::is.null
  [22:38:17.462]                       muffled <- FALSE
  [22:38:17.462]                       if (inherits(cond, "message")) {
  [22:38:17.462]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:17.462]                         if (muffled) 
  [22:38:17.462]                           invokeRestart("muffleMessage")
  [22:38:17.462]                       }
  [22:38:17.462]                       else if (inherits(cond, "warning")) {
  [22:38:17.462]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:17.462]                         if (muffled) 
  [22:38:17.462]                           invokeRestart("muffleWarning")
  [22:38:17.462]                       }
  [22:38:17.462]                       else if (inherits(cond, "condition")) {
  [22:38:17.462]                         if (!is.null(pattern)) {
  [22:38:17.462]                           computeRestarts <- base::computeRestarts
  [22:38:17.462]                           grepl <- base::grepl
  [22:38:17.462]                           restarts <- computeRestarts(cond)
  [22:38:17.462]                           for (restart in restarts) {
  [22:38:17.462]                             name <- restart$name
  [22:38:17.462]                             if (is.null(name)) 
  [22:38:17.462]                               next
  [22:38:17.462]                             if (!grepl(pattern, name)) 
  [22:38:17.462]                               next
  [22:38:17.462]                             invokeRestart(restart)
  [22:38:17.462]                             muffled <- TRUE
  [22:38:17.462]                             break
  [22:38:17.462]                           }
  [22:38:17.462]                         }
  [22:38:17.462]                       }
  [22:38:17.462]                       invisible(muffled)
  [22:38:17.462]                     }
  [22:38:17.462]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:17.462]                   }
  [22:38:17.462]                 }
  [22:38:17.462]             }
  [22:38:17.462]         }))
  [22:38:17.462]     }, error = function(ex) {
  [22:38:17.462]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:17.462]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:17.462]                 ...future.rng), started = ...future.startTime, 
  [22:38:17.462]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:17.462]             version = "1.8"), class = "FutureResult")
  [22:38:17.462]     }, finally = {
  [22:38:17.462]         if (!identical(...future.workdir, getwd())) 
  [22:38:17.462]             setwd(...future.workdir)
  [22:38:17.462]         {
  [22:38:17.462]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:17.462]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:17.462]             }
  [22:38:17.462]             base::options(...future.oldOptions)
  [22:38:17.462]             if (.Platform$OS.type == "windows") {
  [22:38:17.462]                 old_names <- names(...future.oldEnvVars)
  [22:38:17.462]                 envs <- base::Sys.getenv()
  [22:38:17.462]                 names <- names(envs)
  [22:38:17.462]                 common <- intersect(names, old_names)
  [22:38:17.462]                 added <- setdiff(names, old_names)
  [22:38:17.462]                 removed <- setdiff(old_names, names)
  [22:38:17.462]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:17.462]                   envs[common]]
  [22:38:17.462]                 NAMES <- toupper(changed)
  [22:38:17.462]                 args <- list()
  [22:38:17.462]                 for (kk in seq_along(NAMES)) {
  [22:38:17.462]                   name <- changed[[kk]]
  [22:38:17.462]                   NAME <- NAMES[[kk]]
  [22:38:17.462]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:17.462]                     next
  [22:38:17.462]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:17.462]                 }
  [22:38:17.462]                 NAMES <- toupper(added)
  [22:38:17.462]                 for (kk in seq_along(NAMES)) {
  [22:38:17.462]                   name <- added[[kk]]
  [22:38:17.462]                   NAME <- NAMES[[kk]]
  [22:38:17.462]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:17.462]                     next
  [22:38:17.462]                   args[[name]] <- ""
  [22:38:17.462]                 }
  [22:38:17.462]                 NAMES <- toupper(removed)
  [22:38:17.462]                 for (kk in seq_along(NAMES)) {
  [22:38:17.462]                   name <- removed[[kk]]
  [22:38:17.462]                   NAME <- NAMES[[kk]]
  [22:38:17.462]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:17.462]                     next
  [22:38:17.462]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:17.462]                 }
  [22:38:17.462]                 if (length(args) > 0) 
  [22:38:17.462]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:17.462]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:17.462]             }
  [22:38:17.462]             else {
  [22:38:17.462]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:17.462]             }
  [22:38:17.462]             {
  [22:38:17.462]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:17.462]                   0L) {
  [22:38:17.462]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:17.462]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:17.462]                   base::options(opts)
  [22:38:17.462]                 }
  [22:38:17.462]                 {
  [22:38:17.462]                   NULL
  [22:38:17.462]                   options(future.plan = NULL)
  [22:38:17.462]                   if (is.na(NA_character_)) 
  [22:38:17.462]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:17.462]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:17.462]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:17.462]                     .init = FALSE)
  [22:38:17.462]                 }
  [22:38:17.462]             }
  [22:38:17.462]         }
  [22:38:17.462]     })
  [22:38:17.462]     if (TRUE) {
  [22:38:17.462]         base::sink(type = "output", split = FALSE)
  [22:38:17.462]         if (TRUE) {
  [22:38:17.462]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:17.462]         }
  [22:38:17.462]         else {
  [22:38:17.462]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:17.462]         }
  [22:38:17.462]         base::close(...future.stdout)
  [22:38:17.462]         ...future.stdout <- NULL
  [22:38:17.462]     }
  [22:38:17.462]     ...future.result$conditions <- ...future.conditions
  [22:38:17.462]     ...future.result$finished <- base::Sys.time()
  [22:38:17.462]     ...future.result
  [22:38:17.462] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/mirai_cluster.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:18.205] plan(): Setting new future strategy stack:
  [22:38:18.205] List of future strategies:
  [22:38:18.205] 1. mirai_multisession:
  [22:38:18.205]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:18.205]    - tweaked: FALSE
  [22:38:18.205]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:18.231] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:18.231] < mirai [$data] >
  [22:38:18.286] getGlobalsAndPackages() ...
  [22:38:18.286] Not searching for globals
  [22:38:18.287] - globals: [0] <none>
  [22:38:18.287] getGlobalsAndPackages() ... DONE
  [22:38:18.288] getGlobalsAndPackages() ...
  [22:38:18.288] 
  [22:38:18.289] - globals: [0] <none>
  [22:38:18.289] getGlobalsAndPackages() ... DONE
  [22:38:19.345] Packages needed by the future expression (n = 0): <none>
  [22:38:19.345] Packages needed by future strategies (n = 0): <none>
  [22:38:19.347] {
  [22:38:19.347]     {
  [22:38:19.347]         {
  [22:38:19.347]             ...future.startTime <- base::Sys.time()
  [22:38:19.347]             {
  [22:38:19.347]                 {
  [22:38:19.347]                   {
  [22:38:19.347]                     base::local({
  [22:38:19.347]                       has_future <- base::requireNamespace("future", 
  [22:38:19.347]                         quietly = TRUE)
  [22:38:19.347]                       if (has_future) {
  [22:38:19.347]                         ns <- base::getNamespace("future")
  [22:38:19.347]                         version <- ns[[".package"]][["version"]]
  [22:38:19.347]                         if (is.null(version)) 
  [22:38:19.347]                           version <- utils::packageVersion("future")
  [22:38:19.347]                       }
  [22:38:19.347]                       else {
  [22:38:19.347]                         version <- NULL
  [22:38:19.347]                       }
  [22:38:19.347]                       if (!has_future || version < "1.8.0") {
  [22:38:19.347]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:19.347]                           "", base::R.version$version.string), 
  [22:38:19.347]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:19.347]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:19.347]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:19.347]                             "release", "version")], collapse = " "), 
  [22:38:19.347]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:19.347]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:19.347]                           info)
  [22:38:19.347]                         info <- base::paste(info, collapse = "; ")
  [22:38:19.347]                         if (!has_future) {
  [22:38:19.347]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:19.347]                             info)
  [22:38:19.347]                         }
  [22:38:19.347]                         else {
  [22:38:19.347]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:19.347]                             info, version)
  [22:38:19.347]                         }
  [22:38:19.347]                         base::stop(msg)
  [22:38:19.347]                       }
  [22:38:19.347]                     })
  [22:38:19.347]                   }
  [22:38:19.347]                   ...future.strategy.old <- future::plan("list")
  [22:38:19.347]                   options(future.plan = NULL)
  [22:38:19.347]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:19.347]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:19.347]                 }
  [22:38:19.347]                 ...future.workdir <- getwd()
  [22:38:19.347]             }
  [22:38:19.347]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:19.347]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:19.347]         }
  [22:38:19.347]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:19.347]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:19.347]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:19.347]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:19.347]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:19.347]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:19.347]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:19.347]             base::names(...future.oldOptions))
  [22:38:19.347]     }
  [22:38:19.347]     if (FALSE) {
  [22:38:19.347]     }
  [22:38:19.347]     else {
  [22:38:19.347]         if (TRUE) {
  [22:38:19.347]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:19.347]                 open = "w")
  [22:38:19.347]         }
  [22:38:19.347]         else {
  [22:38:19.347]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:19.347]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:19.347]         }
  [22:38:19.347]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:19.347]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:19.347]             base::sink(type = "output", split = FALSE)
  [22:38:19.347]             base::close(...future.stdout)
  [22:38:19.347]         }, add = TRUE)
  [22:38:19.347]     }
  [22:38:19.347]     ...future.frame <- base::sys.nframe()
  [22:38:19.347]     ...future.conditions <- base::list()
  [22:38:19.347]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:19.347]     if (FALSE) {
  [22:38:19.347]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:19.347]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:19.347]     }
  [22:38:19.347]     ...future.result <- base::tryCatch({
  [22:38:19.347]         base::withCallingHandlers({
  [22:38:19.347]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:19.347]             future::FutureResult(value = ...future.value$value, 
  [22:38:19.347]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:19.347]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:19.347]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:19.347]                     ...future.globalenv.names))
  [22:38:19.347]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:19.347]         }, condition = base::local({
  [22:38:19.347]             c <- base::c
  [22:38:19.347]             inherits <- base::inherits
  [22:38:19.347]             invokeRestart <- base::invokeRestart
  [22:38:19.347]             length <- base::length
  [22:38:19.347]             list <- base::list
  [22:38:19.347]             seq.int <- base::seq.int
  [22:38:19.347]             signalCondition <- base::signalCondition
  [22:38:19.347]             sys.calls <- base::sys.calls
  [22:38:19.347]             `[[` <- base::`[[`
  [22:38:19.347]             `+` <- base::`+`
  [22:38:19.347]             `<<-` <- base::`<<-`
  [22:38:19.347]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:19.347]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:19.347]                   3L)]
  [22:38:19.347]             }
  [22:38:19.347]             function(cond) {
  [22:38:19.347]                 is_error <- inherits(cond, "error")
  [22:38:19.347]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:19.347]                   NULL)
  [22:38:19.347]                 if (is_error) {
  [22:38:19.347]                   sessionInformation <- function() {
  [22:38:19.347]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:19.347]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:19.347]                       search = base::search(), system = base::Sys.info())
  [22:38:19.347]                   }
  [22:38:19.347]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:19.347]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:19.347]                     cond$call), session = sessionInformation(), 
  [22:38:19.347]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:19.347]                   signalCondition(cond)
  [22:38:19.347]                 }
  [22:38:19.347]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:19.347]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:19.347]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:19.347]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:19.347]                   if (FALSE && !signal) {
  [22:38:19.347]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:19.347]                     {
  [22:38:19.347]                       inherits <- base::inherits
  [22:38:19.347]                       invokeRestart <- base::invokeRestart
  [22:38:19.347]                       is.null <- base::is.null
  [22:38:19.347]                       muffled <- FALSE
  [22:38:19.347]                       if (inherits(cond, "message")) {
  [22:38:19.347]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:19.347]                         if (muffled) 
  [22:38:19.347]                           invokeRestart("muffleMessage")
  [22:38:19.347]                       }
  [22:38:19.347]                       else if (inherits(cond, "warning")) {
  [22:38:19.347]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:19.347]                         if (muffled) 
  [22:38:19.347]                           invokeRestart("muffleWarning")
  [22:38:19.347]                       }
  [22:38:19.347]                       else if (inherits(cond, "condition")) {
  [22:38:19.347]                         if (!is.null(pattern)) {
  [22:38:19.347]                           computeRestarts <- base::computeRestarts
  [22:38:19.347]                           grepl <- base::grepl
  [22:38:19.347]                           restarts <- computeRestarts(cond)
  [22:38:19.347]                           for (restart in restarts) {
  [22:38:19.347]                             name <- restart$name
  [22:38:19.347]                             if (is.null(name)) 
  [22:38:19.347]                               next
  [22:38:19.347]                             if (!grepl(pattern, name)) 
  [22:38:19.347]                               next
  [22:38:19.347]                             invokeRestart(restart)
  [22:38:19.347]                             muffled <- TRUE
  [22:38:19.347]                             break
  [22:38:19.347]                           }
  [22:38:19.347]                         }
  [22:38:19.347]                       }
  [22:38:19.347]                       invisible(muffled)
  [22:38:19.347]                     }
  [22:38:19.347]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:19.347]                   }
  [22:38:19.347]                 }
  [22:38:19.347]                 else {
  [22:38:19.347]                   if (TRUE) {
  [22:38:19.347]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:19.347]                     {
  [22:38:19.347]                       inherits <- base::inherits
  [22:38:19.347]                       invokeRestart <- base::invokeRestart
  [22:38:19.347]                       is.null <- base::is.null
  [22:38:19.347]                       muffled <- FALSE
  [22:38:19.347]                       if (inherits(cond, "message")) {
  [22:38:19.347]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:19.347]                         if (muffled) 
  [22:38:19.347]                           invokeRestart("muffleMessage")
  [22:38:19.347]                       }
  [22:38:19.347]                       else if (inherits(cond, "warning")) {
  [22:38:19.347]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:19.347]                         if (muffled) 
  [22:38:19.347]                           invokeRestart("muffleWarning")
  [22:38:19.347]                       }
  [22:38:19.347]                       else if (inherits(cond, "condition")) {
  [22:38:19.347]                         if (!is.null(pattern)) {
  [22:38:19.347]                           computeRestarts <- base::computeRestarts
  [22:38:19.347]                           grepl <- base::grepl
  [22:38:19.347]                           restarts <- computeRestarts(cond)
  [22:38:19.347]                           for (restart in restarts) {
  [22:38:19.347]                             name <- restart$name
  [22:38:19.347]                             if (is.null(name)) 
  [22:38:19.347]                               next
  [22:38:19.347]                             if (!grepl(pattern, name)) 
  [22:38:19.347]                               next
  [22:38:19.347]                             invokeRestart(restart)
  [22:38:19.347]                             muffled <- TRUE
  [22:38:19.347]                             break
  [22:38:19.347]                           }
  [22:38:19.347]                         }
  [22:38:19.347]                       }
  [22:38:19.347]                       invisible(muffled)
  [22:38:19.347]                     }
  [22:38:19.347]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:19.347]                   }
  [22:38:19.347]                 }
  [22:38:19.347]             }
  [22:38:19.347]         }))
  [22:38:19.347]     }, error = function(ex) {
  [22:38:19.347]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:19.347]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:19.347]                 ...future.rng), started = ...future.startTime, 
  [22:38:19.347]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:19.347]             version = "1.8"), class = "FutureResult")
  [22:38:19.347]     }, finally = {
  [22:38:19.347]         if (!identical(...future.workdir, getwd())) 
  [22:38:19.347]             setwd(...future.workdir)
  [22:38:19.347]         {
  [22:38:19.347]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:19.347]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:19.347]             }
  [22:38:19.347]             base::options(...future.oldOptions)
  [22:38:19.347]             if (.Platform$OS.type == "windows") {
  [22:38:19.347]                 old_names <- names(...future.oldEnvVars)
  [22:38:19.347]                 envs <- base::Sys.getenv()
  [22:38:19.347]                 names <- names(envs)
  [22:38:19.347]                 common <- intersect(names, old_names)
  [22:38:19.347]                 added <- setdiff(names, old_names)
  [22:38:19.347]                 removed <- setdiff(old_names, names)
  [22:38:19.347]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:19.347]                   envs[common]]
  [22:38:19.347]                 NAMES <- toupper(changed)
  [22:38:19.347]                 args <- list()
  [22:38:19.347]                 for (kk in seq_along(NAMES)) {
  [22:38:19.347]                   name <- changed[[kk]]
  [22:38:19.347]                   NAME <- NAMES[[kk]]
  [22:38:19.347]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:19.347]                     next
  [22:38:19.347]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:19.347]                 }
  [22:38:19.347]                 NAMES <- toupper(added)
  [22:38:19.347]                 for (kk in seq_along(NAMES)) {
  [22:38:19.347]                   name <- added[[kk]]
  [22:38:19.347]                   NAME <- NAMES[[kk]]
  [22:38:19.347]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:19.347]                     next
  [22:38:19.347]                   args[[name]] <- ""
  [22:38:19.347]                 }
  [22:38:19.347]                 NAMES <- toupper(removed)
  [22:38:19.347]                 for (kk in seq_along(NAMES)) {
  [22:38:19.347]                   name <- removed[[kk]]
  [22:38:19.347]                   NAME <- NAMES[[kk]]
  [22:38:19.347]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:19.347]                     next
  [22:38:19.347]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:19.347]                 }
  [22:38:19.347]                 if (length(args) > 0) 
  [22:38:19.347]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:19.347]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:19.347]             }
  [22:38:19.347]             else {
  [22:38:19.347]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:19.347]             }
  [22:38:19.347]             {
  [22:38:19.347]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:19.347]                   0L) {
  [22:38:19.347]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:19.347]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:19.347]                   base::options(opts)
  [22:38:19.347]                 }
  [22:38:19.347]                 {
  [22:38:19.347]                   NULL
  [22:38:19.347]                   options(future.plan = NULL)
  [22:38:19.347]                   if (is.na(NA_character_)) 
  [22:38:19.347]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:19.347]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:19.347]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:19.347]                     .init = FALSE)
  [22:38:19.347]                 }
  [22:38:19.347]             }
  [22:38:19.347]         }
  [22:38:19.347]     })
  [22:38:19.347]     if (TRUE) {
  [22:38:19.347]         base::sink(type = "output", split = FALSE)
  [22:38:19.347]         if (TRUE) {
  [22:38:19.347]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:19.347]         }
  [22:38:19.347]         else {
  [22:38:19.347]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:19.347]         }
  [22:38:19.347]         base::close(...future.stdout)
  [22:38:19.347]         ...future.stdout <- NULL
  [22:38:19.347]     }
  [22:38:19.347]     ...future.result$conditions <- ...future.conditions
  [22:38:19.347]     ...future.result$finished <- base::Sys.time()
  [22:38:19.347]     ...future.result
  [22:38:19.347] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/nbrOfWorkers.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:20.178] plan(): Setting new future strategy stack:
  [22:38:20.205] List of future strategies:
  [22:38:20.205] 1. mirai_multisession:
  [22:38:20.205]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:20.205]    - tweaked: FALSE
  [22:38:20.205]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:20.247] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:20.247] < mirai [$data] >
  [22:38:20.311] getGlobalsAndPackages() ...
  [22:38:20.311] Not searching for globals
  [22:38:20.311] - globals: [0] <none>
  [22:38:20.312] getGlobalsAndPackages() ... DONE
  [22:38:20.312] getGlobalsAndPackages() ...
  [22:38:20.312] 
  [22:38:20.313] - globals: [0] <none>
  [22:38:20.313] getGlobalsAndPackages() ... DONE
  [22:38:21.215] Packages needed by the future expression (n = 0): <none>
  [22:38:21.215] Packages needed by future strategies (n = 0): <none>
  [22:38:21.217] {
  [22:38:21.217]     {
  [22:38:21.217]         {
  [22:38:21.217]             ...future.startTime <- base::Sys.time()
  [22:38:21.217]             {
  [22:38:21.217]                 {
  [22:38:21.217]                   {
  [22:38:21.217]                     base::local({
  [22:38:21.217]                       has_future <- base::requireNamespace("future", 
  [22:38:21.217]                         quietly = TRUE)
  [22:38:21.217]                       if (has_future) {
  [22:38:21.217]                         ns <- base::getNamespace("future")
  [22:38:21.217]                         version <- ns[[".package"]][["version"]]
  [22:38:21.217]                         if (is.null(version)) 
  [22:38:21.217]                           version <- utils::packageVersion("future")
  [22:38:21.217]                       }
  [22:38:21.217]                       else {
  [22:38:21.217]                         version <- NULL
  [22:38:21.217]                       }
  [22:38:21.217]                       if (!has_future || version < "1.8.0") {
  [22:38:21.217]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:21.217]                           "", base::R.version$version.string), 
  [22:38:21.217]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:21.217]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:21.217]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:21.217]                             "release", "version")], collapse = " "), 
  [22:38:21.217]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:21.217]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:21.217]                           info)
  [22:38:21.217]                         info <- base::paste(info, collapse = "; ")
  [22:38:21.217]                         if (!has_future) {
  [22:38:21.217]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:21.217]                             info)
  [22:38:21.217]                         }
  [22:38:21.217]                         else {
  [22:38:21.217]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:21.217]                             info, version)
  [22:38:21.217]                         }
  [22:38:21.217]                         base::stop(msg)
  [22:38:21.217]                       }
  [22:38:21.217]                     })
  [22:38:21.217]                   }
  [22:38:21.217]                   ...future.strategy.old <- future::plan("list")
  [22:38:21.217]                   options(future.plan = NULL)
  [22:38:21.217]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:21.217]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:21.217]                 }
  [22:38:21.217]                 ...future.workdir <- getwd()
  [22:38:21.217]             }
  [22:38:21.217]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:21.217]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:21.217]         }
  [22:38:21.217]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:21.217]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:21.217]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:21.217]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:21.217]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:21.217]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:21.217]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:21.217]             base::names(...future.oldOptions))
  [22:38:21.217]     }
  [22:38:21.217]     if (FALSE) {
  [22:38:21.217]     }
  [22:38:21.217]     else {
  [22:38:21.217]         if (TRUE) {
  [22:38:21.217]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:21.217]                 open = "w")
  [22:38:21.217]         }
  [22:38:21.217]         else {
  [22:38:21.217]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:21.217]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:21.217]         }
  [22:38:21.217]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:21.217]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:21.217]             base::sink(type = "output", split = FALSE)
  [22:38:21.217]             base::close(...future.stdout)
  [22:38:21.217]         }, add = TRUE)
  [22:38:21.217]     }
  [22:38:21.217]     ...future.frame <- base::sys.nframe()
  [22:38:21.217]     ...future.conditions <- base::list()
  [22:38:21.217]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:21.217]     if (FALSE) {
  [22:38:21.217]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:21.217]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:21.217]     }
  [22:38:21.217]     ...future.result <- base::tryCatch({
  [22:38:21.217]         base::withCallingHandlers({
  [22:38:21.217]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:21.217]             future::FutureResult(value = ...future.value$value, 
  [22:38:21.217]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:21.217]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:21.217]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:21.217]                     ...future.globalenv.names))
  [22:38:21.217]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:21.217]         }, condition = base::local({
  [22:38:21.217]             c <- base::c
  [22:38:21.217]             inherits <- base::inherits
  [22:38:21.217]             invokeRestart <- base::invokeRestart
  [22:38:21.217]             length <- base::length
  [22:38:21.217]             list <- base::list
  [22:38:21.217]             seq.int <- base::seq.int
  [22:38:21.217]             signalCondition <- base::signalCondition
  [22:38:21.217]             sys.calls <- base::sys.calls
  [22:38:21.217]             `[[` <- base::`[[`
  [22:38:21.217]             `+` <- base::`+`
  [22:38:21.217]             `<<-` <- base::`<<-`
  [22:38:21.217]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:21.217]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:21.217]                   3L)]
  [22:38:21.217]             }
  [22:38:21.217]             function(cond) {
  [22:38:21.217]                 is_error <- inherits(cond, "error")
  [22:38:21.217]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:21.217]                   NULL)
  [22:38:21.217]                 if (is_error) {
  [22:38:21.217]                   sessionInformation <- function() {
  [22:38:21.217]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:21.217]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:21.217]                       search = base::search(), system = base::Sys.info())
  [22:38:21.217]                   }
  [22:38:21.217]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:21.217]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:21.217]                     cond$call), session = sessionInformation(), 
  [22:38:21.217]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:21.217]                   signalCondition(cond)
  [22:38:21.217]                 }
  [22:38:21.217]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:21.217]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:21.217]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:21.217]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:21.217]                   if (FALSE && !signal) {
  [22:38:21.217]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:21.217]                     {
  [22:38:21.217]                       inherits <- base::inherits
  [22:38:21.217]                       invokeRestart <- base::invokeRestart
  [22:38:21.217]                       is.null <- base::is.null
  [22:38:21.217]                       muffled <- FALSE
  [22:38:21.217]                       if (inherits(cond, "message")) {
  [22:38:21.217]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:21.217]                         if (muffled) 
  [22:38:21.217]                           invokeRestart("muffleMessage")
  [22:38:21.217]                       }
  [22:38:21.217]                       else if (inherits(cond, "warning")) {
  [22:38:21.217]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:21.217]                         if (muffled) 
  [22:38:21.217]                           invokeRestart("muffleWarning")
  [22:38:21.217]                       }
  [22:38:21.217]                       else if (inherits(cond, "condition")) {
  [22:38:21.217]                         if (!is.null(pattern)) {
  [22:38:21.217]                           computeRestarts <- base::computeRestarts
  [22:38:21.217]                           grepl <- base::grepl
  [22:38:21.217]                           restarts <- computeRestarts(cond)
  [22:38:21.217]                           for (restart in restarts) {
  [22:38:21.217]                             name <- restart$name
  [22:38:21.217]                             if (is.null(name)) 
  [22:38:21.217]                               next
  [22:38:21.217]                             if (!grepl(pattern, name)) 
  [22:38:21.217]                               next
  [22:38:21.217]                             invokeRestart(restart)
  [22:38:21.217]                             muffled <- TRUE
  [22:38:21.217]                             break
  [22:38:21.217]                           }
  [22:38:21.217]                         }
  [22:38:21.217]                       }
  [22:38:21.217]                       invisible(muffled)
  [22:38:21.217]                     }
  [22:38:21.217]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:21.217]                   }
  [22:38:21.217]                 }
  [22:38:21.217]                 else {
  [22:38:21.217]                   if (TRUE) {
  [22:38:21.217]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:21.217]                     {
  [22:38:21.217]                       inherits <- base::inherits
  [22:38:21.217]                       invokeRestart <- base::invokeRestart
  [22:38:21.217]                       is.null <- base::is.null
  [22:38:21.217]                       muffled <- FALSE
  [22:38:21.217]                       if (inherits(cond, "message")) {
  [22:38:21.217]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:21.217]                         if (muffled) 
  [22:38:21.217]                           invokeRestart("muffleMessage")
  [22:38:21.217]                       }
  [22:38:21.217]                       else if (inherits(cond, "warning")) {
  [22:38:21.217]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:21.217]                         if (muffled) 
  [22:38:21.217]                           invokeRestart("muffleWarning")
  [22:38:21.217]                       }
  [22:38:21.217]                       else if (inherits(cond, "condition")) {
  [22:38:21.217]                         if (!is.null(pattern)) {
  [22:38:21.217]                           computeRestarts <- base::computeRestarts
  [22:38:21.217]                           grepl <- base::grepl
  [22:38:21.217]                           restarts <- computeRestarts(cond)
  [22:38:21.217]                           for (restart in restarts) {
  [22:38:21.217]                             name <- restart$name
  [22:38:21.217]                             if (is.null(name)) 
  [22:38:21.217]                               next
  [22:38:21.217]                             if (!grepl(pattern, name)) 
  [22:38:21.217]                               next
  [22:38:21.217]                             invokeRestart(restart)
  [22:38:21.217]                             muffled <- TRUE
  [22:38:21.217]                             break
  [22:38:21.217]                           }
  [22:38:21.217]                         }
  [22:38:21.217]                       }
  [22:38:21.217]                       invisible(muffled)
  [22:38:21.217]                     }
  [22:38:21.217]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:21.217]                   }
  [22:38:21.217]                 }
  [22:38:21.217]             }
  [22:38:21.217]         }))
  [22:38:21.217]     }, error = function(ex) {
  [22:38:21.217]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:21.217]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:21.217]                 ...future.rng), started = ...future.startTime, 
  [22:38:21.217]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:21.217]             version = "1.8"), class = "FutureResult")
  [22:38:21.217]     }, finally = {
  [22:38:21.217]         if (!identical(...future.workdir, getwd())) 
  [22:38:21.217]             setwd(...future.workdir)
  [22:38:21.217]         {
  [22:38:21.217]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:21.217]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:21.217]             }
  [22:38:21.217]             base::options(...future.oldOptions)
  [22:38:21.217]             if (.Platform$OS.type == "windows") {
  [22:38:21.217]                 old_names <- names(...future.oldEnvVars)
  [22:38:21.217]                 envs <- base::Sys.getenv()
  [22:38:21.217]                 names <- names(envs)
  [22:38:21.217]                 common <- intersect(names, old_names)
  [22:38:21.217]                 added <- setdiff(names, old_names)
  [22:38:21.217]                 removed <- setdiff(old_names, names)
  [22:38:21.217]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:21.217]                   envs[common]]
  [22:38:21.217]                 NAMES <- toupper(changed)
  [22:38:21.217]                 args <- list()
  [22:38:21.217]                 for (kk in seq_along(NAMES)) {
  [22:38:21.217]                   name <- changed[[kk]]
  [22:38:21.217]                   NAME <- NAMES[[kk]]
  [22:38:21.217]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:21.217]                     next
  [22:38:21.217]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:21.217]                 }
  [22:38:21.217]                 NAMES <- toupper(added)
  [22:38:21.217]                 for (kk in seq_along(NAMES)) {
  [22:38:21.217]                   name <- added[[kk]]
  [22:38:21.217]                   NAME <- NAMES[[kk]]
  [22:38:21.217]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:21.217]                     next
  [22:38:21.217]                   args[[name]] <- ""
  [22:38:21.217]                 }
  [22:38:21.217]                 NAMES <- toupper(removed)
  [22:38:21.217]                 for (kk in seq_along(NAMES)) {
  [22:38:21.217]                   name <- removed[[kk]]
  [22:38:21.217]                   NAME <- NAMES[[kk]]
  [22:38:21.217]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:21.217]                     next
  [22:38:21.217]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:21.217]                 }
  [22:38:21.217]                 if (length(args) > 0) 
  [22:38:21.217]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:21.217]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:21.217]             }
  [22:38:21.217]             else {
  [22:38:21.217]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:21.217]             }
  [22:38:21.217]             {
  [22:38:21.217]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:21.217]                   0L) {
  [22:38:21.217]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:21.217]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:21.217]                   base::options(opts)
  [22:38:21.217]                 }
  [22:38:21.217]                 {
  [22:38:21.217]                   NULL
  [22:38:21.217]                   options(future.plan = NULL)
  [22:38:21.217]                   if (is.na(NA_character_)) 
  [22:38:21.217]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:21.217]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:21.217]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:21.217]                     .init = FALSE)
  [22:38:21.217]                 }
  [22:38:21.217]             }
  [22:38:21.217]         }
  [22:38:21.217]     })
  [22:38:21.217]     if (TRUE) {
  [22:38:21.217]         base::sink(type = "output", split = FALSE)
  [22:38:21.217]         if (TRUE) {
  [22:38:21.217]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:21.217]         }
  [22:38:21.217]         else {
  [22:38:21.217]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:21.217]         }
  [22:38:21.217]         base::close(...future.stdout)
  [22:38:21.217]         ...future.stdout <- NULL
  [22:38:21.217]     }
  [22:38:21.217]     ...future.result$conditions <- ...future.conditions
  [22:38:21.217]     ...future.result$finished <- base::Sys.time()
  [22:38:21.217]     ...future.result
  [22:38:21.217] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/plan.R’ failed.
Complete output:
  > source("incl/start,load-only.R")
  [22:38:21.852] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [22:38:21.854] Set package option 'parallelly.availableCores.methods'
  [22:38:21.854] Environment variable 'R_PARALLELLY_AVAILABLECORES_METHODS' not set
  [22:38:21.855] Set package option 'parallelly.availableCores.fallback'
  [22:38:21.855] Environment variable 'R_PARALLELLY_AVAILABLECORES_FALLBACK' not set
  [22:38:21.855] Set package option 'parallelly.availableCores.min'
  [22:38:21.856] Environment variable 'R_PARALLELLY_AVAILABLECORES_MIN' not set
  [22:38:21.856] Set package option 'parallelly.availableCores.system'
  [22:38:21.857] Environment variable 'R_PARALLELLY_AVAILABLECORES_SYSTEM' not set
  [22:38:21.857] Set package option 'parallelly.availableCores.logical'
  [22:38:21.858] Environment variable 'R_PARALLELLY_AVAILABLECORES_LOGICAL' not set
  [22:38:21.858] Set package option 'parallelly.availableCores.omit'
  [22:38:21.858] Environment variable 'R_PARALLELLY_AVAILABLECORES_OMIT' not set
  [22:38:21.859] Set package option 'parallelly.availableWorkers.methods'
  [22:38:21.859] Environment variable 'R_PARALLELLY_AVAILABLEWORKERS_METHODS' not set
  [22:38:21.859] Set package option 'parallelly.maxWorkers.localhost'
  [22:38:21.860] Environment variable 'R_PARALLELLY_MAXWORKERS_LOCALHOST' not set
  [22:38:21.860] Set package option 'parallelly.maxWorkers.localhost.ignore'
  [22:38:21.861] Environment variable 'R_PARALLELLY_MAXWORKERS_LOCALHOST_IGNORE' not set
  [22:38:21.861] Set package option 'parallelly.fork.enable'
  [22:38:21.862] Environment variable 'R_PARALLELLY_FORK_ENABLE' not set
  [22:38:21.862] Set package option 'parallelly.supportsMulticore.disableOn'
  [22:38:21.862] Environment variable 'R_PARALLELLY_SUPPORTSMULTICORE_DISABLEON' not set
  [22:38:21.863] Set package option 'parallelly.supportsMulticore.unstable'
  [22:38:21.863] Environment variable 'R_PARALLELLY_SUPPORTSMULTICORE_UNSTABLE' not set
  [22:38:21.863] Set package option 'parallelly.makeNodePSOCK.setup_strategy'
  [22:38:21.864] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_SETUP_STRATEGY' not set
  [22:38:21.883] Set package option 'parallelly.makeNodePSOCK.validate'
  [22:38:21.884] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_VALIDATE' not set
  [22:38:21.884] Set package option 'parallelly.makeNodePSOCK.connectTimeout'
  [22:38:21.885] R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  [22:38:21.885] Coercing from character to numeric: '120'
  [22:38:21.885] => options("parallelly.makeNodePSOCK.connectTimeout" = '120') [n=1, mode=double]
  [22:38:21.886] Set package option 'parallelly.makeNodePSOCK.timeout'
  [22:38:21.886] R_PARALLELLY_MAKENODEPSOCK_TIMEOUT='120'
  [22:38:21.887] Coercing from character to numeric: '120'
  [22:38:21.887] => options("parallelly.makeNodePSOCK.timeout" = '120') [n=1, mode=double]
  [22:38:21.888] Set package option 'parallelly.makeNodePSOCK.useXDR'
  [22:38:21.888] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_USEXDR' not set
  [22:38:21.888] Set package option 'parallelly.makeNodePSOCK.socketOptions'
  [22:38:21.889] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_SOCKETOPTIONS' not set
  [22:38:21.889] Set package option 'parallelly.makeNodePSOCK.rshcmd'
  [22:38:21.890] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_RSHCMD' not set
  [22:38:21.890] Set package option 'parallelly.makeNodePSOCK.rshopts'
  [22:38:21.890] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_RSHOPTS' not set
  [22:38:21.891] Set package option 'parallelly.makeNodePSOCK.tries'
  [22:38:21.891] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_TRIES' not set
  [22:38:21.892] Set package option 'parallelly.makeNodePSOCK.tries.delay'
  [22:38:21.892] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_TRIES_DELAY' not set
  [22:38:21.893] Set package option 'parallelly.makeNodePSOCK.rscript_label'
  [22:38:21.893] R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  [22:38:21.893] => options("parallelly.makeNodePSOCK.rscript_label" = 'TRUE') [n=1, mode=character]
  [22:38:21.894] Set package option 'parallelly.makeNodePSOCK.sessionInfo.pkgs'
  [22:38:21.894] R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  [22:38:21.894] => options("parallelly.makeNodePSOCK.sessionInfo.pkgs" = 'TRUE') [n=1, mode=character]
  [22:38:21.895] Set package option 'parallelly.makeNodePSOCK.autoKill'
  [22:38:21.895] R_PARALLELLY_MAKENODEPSOCK_AUTOKILL='TRUE'
  [22:38:21.896] Coercing from character to logical: 'TRUE'
  [22:38:21.896] => options("parallelly.makeNodePSOCK.autoKill" = 'TRUE') [n=1, mode=logical]
  [22:38:21.896] Set package option 'parallelly.makeNodePSOCK.master.localhost.hostname'
  [22:38:21.897] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_MASTER_LOCALHOST_HOSTNAME' not set
  [22:38:21.897] Set package option 'parallelly.makeNodePSOCK.port.increment'
  [22:38:21.898] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_PORT_INCREMENT' not set
  [22:38:21.906] parallelly-specific environment variables:
  - R_PARALLELLY_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_PARALLELLY_MAKENODEPSOCK_TIMEOUT='120'
  - R_PARALLELLY_RANDOM_PORTS='20000:39999'
  [22:38:21.920] Future-specific environment variables:
  [22:38:21.920] Environment variable 'R_FUTURE_DEMO_MANDELBROT_REGION' not set
  [22:38:21.921] Environment variable 'R_FUTURE_DEMO_MANDELBROT_NROW' not set
  [22:38:21.921] Environment variable 'R_FUTURE_DEPRECATED_IGNORE' not set
  [22:38:21.921] Environment variable 'R_FUTURE_DEPRECATED_DEFUNCT' not set
  [22:38:21.922] Environment variable 'R_FUTURE_FORK_MULTITHREADING_ENABLE' not set
  [22:38:21.922] Environment variable 'R_FUTURE_GLOBALS_MAXSIZE' not set
  [22:38:21.922] Environment variable 'R_FUTURE_GLOBALS_ONMISSING' not set
  [22:38:21.927] Environment variable 'R_FUTURE_GLOBALS_ONREFERENCE' not set
  [22:38:21.927] Environment variable 'R_FUTURE_GLOBALS_METHOD' not set
  [22:38:21.928] Environment variable 'R_FUTURE_GLOBALS_RESOLVE' not set
  [22:38:21.928] Environment variable 'R_FUTURE_LAZY_ASSERTOWNER' not set
  [22:38:21.928] Environment variable 'R_FUTURE_PLAN' not set
  [22:38:21.928] Environment variable 'R_FUTURE_PLAN_DISALLOW' not set
  [22:38:21.929] Environment variable 'R_FUTURE_PSOCK_RELAY_IMMEDIATE' not set
  [22:38:21.929] Environment variable 'R_FUTURE_RELAY_IMMEDIATE' not set
  [22:38:21.929] Environment variable 'R_FUTURE_RESOLVE_RECURSIVE' not set
  [22:38:21.929] Environment variable 'R_FUTURE_ALIVE_TIMEOUT' not set
  [22:38:21.930] Environment variable 'R_FUTURE_RESOLVED_TIMEOUT' not set
  [22:38:21.930] Environment variable 'R_FUTURE_CLUSTER_RESOLVED_TIMEOUT' not set
  [22:38:21.930] Environment variable 'R_FUTURE_MULTICORE_RESOLVED_TIMEOUT' not set
  [22:38:21.930] Environment variable 'R_FUTURE_ONFUTURECONDITION_KEEPFUTURE' not set
  [22:38:21.931] Environment variable 'R_FUTURE_RNG_ONMISUSE' not set
  [22:38:21.931] Environment variable 'R_FUTURE_GLOBALENV_ONMISUSE' not set
  [22:38:21.931] Environment variable 'R_FUTURE_WAIT_TIMEOUT' not set
  [22:38:21.931] Environment variable 'R_FUTURE_WAIT_INTERVAL' not set
  [22:38:21.932] Environment variable 'R_FUTURE_WAIT_ALPHA' not set
  [22:38:21.932] Environment variable 'R_FUTURE_ASSIGN_GLOBALS_EXCLUDE' not set
  [22:38:21.932] Environment variable 'R_FUTURE_OUTPUT_WINDOWS_REENCODE' not set
  [22:38:21.932] Environment variable 'R_FUTURE_GLOBALS_GLOBALSOF_LOCALS' not set
  [22:38:21.933] Environment variable 'R_FUTURE_STATE_ONINVALID' not set
  [22:38:21.933] Environment variable 'R_FUTURE_JOURNAL' not set
  [22:38:21.933] Environment variable 'R_FUTURE_GLOBALS_KEEPWHERE' not set
  [22:38:21.935] R process uuid: 83be7c7c-08a7-1500-de3a-261900d15d89
  [22:38:21.935] Setting plan('default')
  [22:38:21.936] plan(): Setting new future strategy stack:
  [22:38:21.936] List of future strategies:
  [22:38:21.936] 1. sequential:
  [22:38:21.936]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [22:38:21.936]    - tweaked: FALSE
  [22:38:21.936]    - call: NULL
  [22:38:21.939] plan(): nbrOfWorkers() = 1
  [22:38:22.027] plan(): Setting new future strategy stack:
  [22:38:22.028] List of future strategies:
  [22:38:22.028] 1. mirai_multisession:
  [22:38:22.028]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:22.028]    - tweaked: FALSE
  [22:38:22.028]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:22.074] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:22.075] < mirai [$data] >
  [22:38:22.135] getGlobalsAndPackages() ...
  [22:38:22.135] Not searching for globals
  [22:38:22.136] - globals: [0] <none>
  [22:38:22.136] getGlobalsAndPackages() ... DONE
  [22:38:22.137] getGlobalsAndPackages() ...
  [22:38:22.137] 
  [22:38:22.137] - globals: [0] <none>
  [22:38:22.137] getGlobalsAndPackages() ... DONE
  [22:38:23.162] Packages needed by the future expression (n = 0): <none>
  [22:38:23.163] Packages needed by future strategies (n = 0): <none>
  [22:38:23.164] {
  [22:38:23.164]     {
  [22:38:23.164]         {
  [22:38:23.164]             ...future.startTime <- base::Sys.time()
  [22:38:23.164]             {
  [22:38:23.164]                 {
  [22:38:23.164]                   {
  [22:38:23.164]                     base::local({
  [22:38:23.164]                       has_future <- base::requireNamespace("future", 
  [22:38:23.164]                         quietly = TRUE)
  [22:38:23.164]                       if (has_future) {
  [22:38:23.164]                         ns <- base::getNamespace("future")
  [22:38:23.164]                         version <- ns[[".package"]][["version"]]
  [22:38:23.164]                         if (is.null(version)) 
  [22:38:23.164]                           version <- utils::packageVersion("future")
  [22:38:23.164]                       }
  [22:38:23.164]                       else {
  [22:38:23.164]                         version <- NULL
  [22:38:23.164]                       }
  [22:38:23.164]                       if (!has_future || version < "1.8.0") {
  [22:38:23.164]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:23.164]                           "", base::R.version$version.string), 
  [22:38:23.164]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:23.164]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:23.164]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:23.164]                             "release", "version")], collapse = " "), 
  [22:38:23.164]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:23.164]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:23.164]                           info)
  [22:38:23.164]                         info <- base::paste(info, collapse = "; ")
  [22:38:23.164]                         if (!has_future) {
  [22:38:23.164]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:23.164]                             info)
  [22:38:23.164]                         }
  [22:38:23.164]                         else {
  [22:38:23.164]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:23.164]                             info, version)
  [22:38:23.164]                         }
  [22:38:23.164]                         base::stop(msg)
  [22:38:23.164]                       }
  [22:38:23.164]                     })
  [22:38:23.164]                   }
  [22:38:23.164]                   ...future.strategy.old <- future::plan("list")
  [22:38:23.164]                   options(future.plan = NULL)
  [22:38:23.164]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:23.164]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:23.164]                 }
  [22:38:23.164]                 ...future.workdir <- getwd()
  [22:38:23.164]             }
  [22:38:23.164]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:23.164]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:23.164]         }
  [22:38:23.164]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:23.164]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:23.164]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:23.164]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:23.164]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:23.164]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:23.164]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:23.164]             base::names(...future.oldOptions))
  [22:38:23.164]     }
  [22:38:23.164]     if (FALSE) {
  [22:38:23.164]     }
  [22:38:23.164]     else {
  [22:38:23.164]         if (TRUE) {
  [22:38:23.164]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:23.164]                 open = "w")
  [22:38:23.164]         }
  [22:38:23.164]         else {
  [22:38:23.164]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:23.164]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:23.164]         }
  [22:38:23.164]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:23.164]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:23.164]             base::sink(type = "output", split = FALSE)
  [22:38:23.164]             base::close(...future.stdout)
  [22:38:23.164]         }, add = TRUE)
  [22:38:23.164]     }
  [22:38:23.164]     ...future.frame <- base::sys.nframe()
  [22:38:23.164]     ...future.conditions <- base::list()
  [22:38:23.164]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:23.164]     if (FALSE) {
  [22:38:23.164]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:23.164]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:23.164]     }
  [22:38:23.164]     ...future.result <- base::tryCatch({
  [22:38:23.164]         base::withCallingHandlers({
  [22:38:23.164]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:23.164]             future::FutureResult(value = ...future.value$value, 
  [22:38:23.164]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:23.164]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:23.164]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:23.164]                     ...future.globalenv.names))
  [22:38:23.164]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:23.164]         }, condition = base::local({
  [22:38:23.164]             c <- base::c
  [22:38:23.164]             inherits <- base::inherits
  [22:38:23.164]             invokeRestart <- base::invokeRestart
  [22:38:23.164]             length <- base::length
  [22:38:23.164]             list <- base::list
  [22:38:23.164]             seq.int <- base::seq.int
  [22:38:23.164]             signalCondition <- base::signalCondition
  [22:38:23.164]             sys.calls <- base::sys.calls
  [22:38:23.164]             `[[` <- base::`[[`
  [22:38:23.164]             `+` <- base::`+`
  [22:38:23.164]             `<<-` <- base::`<<-`
  [22:38:23.164]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:23.164]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:23.164]                   3L)]
  [22:38:23.164]             }
  [22:38:23.164]             function(cond) {
  [22:38:23.164]                 is_error <- inherits(cond, "error")
  [22:38:23.164]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:23.164]                   NULL)
  [22:38:23.164]                 if (is_error) {
  [22:38:23.164]                   sessionInformation <- function() {
  [22:38:23.164]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:23.164]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:23.164]                       search = base::search(), system = base::Sys.info())
  [22:38:23.164]                   }
  [22:38:23.164]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:23.164]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:23.164]                     cond$call), session = sessionInformation(), 
  [22:38:23.164]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:23.164]                   signalCondition(cond)
  [22:38:23.164]                 }
  [22:38:23.164]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:23.164]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:23.164]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:23.164]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:23.164]                   if (FALSE && !signal) {
  [22:38:23.164]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:23.164]                     {
  [22:38:23.164]                       inherits <- base::inherits
  [22:38:23.164]                       invokeRestart <- base::invokeRestart
  [22:38:23.164]                       is.null <- base::is.null
  [22:38:23.164]                       muffled <- FALSE
  [22:38:23.164]                       if (inherits(cond, "message")) {
  [22:38:23.164]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:23.164]                         if (muffled) 
  [22:38:23.164]                           invokeRestart("muffleMessage")
  [22:38:23.164]                       }
  [22:38:23.164]                       else if (inherits(cond, "warning")) {
  [22:38:23.164]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:23.164]                         if (muffled) 
  [22:38:23.164]                           invokeRestart("muffleWarning")
  [22:38:23.164]                       }
  [22:38:23.164]                       else if (inherits(cond, "condition")) {
  [22:38:23.164]                         if (!is.null(pattern)) {
  [22:38:23.164]                           computeRestarts <- base::computeRestarts
  [22:38:23.164]                           grepl <- base::grepl
  [22:38:23.164]                           restarts <- computeRestarts(cond)
  [22:38:23.164]                           for (restart in restarts) {
  [22:38:23.164]                             name <- restart$name
  [22:38:23.164]                             if (is.null(name)) 
  [22:38:23.164]                               next
  [22:38:23.164]                             if (!grepl(pattern, name)) 
  [22:38:23.164]                               next
  [22:38:23.164]                             invokeRestart(restart)
  [22:38:23.164]                             muffled <- TRUE
  [22:38:23.164]                             break
  [22:38:23.164]                           }
  [22:38:23.164]                         }
  [22:38:23.164]                       }
  [22:38:23.164]                       invisible(muffled)
  [22:38:23.164]                     }
  [22:38:23.164]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:23.164]                   }
  [22:38:23.164]                 }
  [22:38:23.164]                 else {
  [22:38:23.164]                   if (TRUE) {
  [22:38:23.164]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:23.164]                     {
  [22:38:23.164]                       inherits <- base::inherits
  [22:38:23.164]                       invokeRestart <- base::invokeRestart
  [22:38:23.164]                       is.null <- base::is.null
  [22:38:23.164]                       muffled <- FALSE
  [22:38:23.164]                       if (inherits(cond, "message")) {
  [22:38:23.164]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:23.164]                         if (muffled) 
  [22:38:23.164]                           invokeRestart("muffleMessage")
  [22:38:23.164]                       }
  [22:38:23.164]                       else if (inherits(cond, "warning")) {
  [22:38:23.164]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:23.164]                         if (muffled) 
  [22:38:23.164]                           invokeRestart("muffleWarning")
  [22:38:23.164]                       }
  [22:38:23.164]                       else if (inherits(cond, "condition")) {
  [22:38:23.164]                         if (!is.null(pattern)) {
  [22:38:23.164]                           computeRestarts <- base::computeRestarts
  [22:38:23.164]                           grepl <- base::grepl
  [22:38:23.164]                           restarts <- computeRestarts(cond)
  [22:38:23.164]                           for (restart in restarts) {
  [22:38:23.164]                             name <- restart$name
  [22:38:23.164]                             if (is.null(name)) 
  [22:38:23.164]                               next
  [22:38:23.164]                             if (!grepl(pattern, name)) 
  [22:38:23.164]                               next
  [22:38:23.164]                             invokeRestart(restart)
  [22:38:23.164]                             muffled <- TRUE
  [22:38:23.164]                             break
  [22:38:23.164]                           }
  [22:38:23.164]                         }
  [22:38:23.164]                       }
  [22:38:23.164]                       invisible(muffled)
  [22:38:23.164]                     }
  [22:38:23.164]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:23.164]                   }
  [22:38:23.164]                 }
  [22:38:23.164]             }
  [22:38:23.164]         }))
  [22:38:23.164]     }, error = function(ex) {
  [22:38:23.164]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:23.164]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:23.164]                 ...future.rng), started = ...future.startTime, 
  [22:38:23.164]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:23.164]             version = "1.8"), class = "FutureResult")
  [22:38:23.164]     }, finally = {
  [22:38:23.164]         if (!identical(...future.workdir, getwd())) 
  [22:38:23.164]             setwd(...future.workdir)
  [22:38:23.164]         {
  [22:38:23.164]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:23.164]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:23.164]             }
  [22:38:23.164]             base::options(...future.oldOptions)
  [22:38:23.164]             if (.Platform$OS.type == "windows") {
  [22:38:23.164]                 old_names <- names(...future.oldEnvVars)
  [22:38:23.164]                 envs <- base::Sys.getenv()
  [22:38:23.164]                 names <- names(envs)
  [22:38:23.164]                 common <- intersect(names, old_names)
  [22:38:23.164]                 added <- setdiff(names, old_names)
  [22:38:23.164]                 removed <- setdiff(old_names, names)
  [22:38:23.164]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:23.164]                   envs[common]]
  [22:38:23.164]                 NAMES <- toupper(changed)
  [22:38:23.164]                 args <- list()
  [22:38:23.164]                 for (kk in seq_along(NAMES)) {
  [22:38:23.164]                   name <- changed[[kk]]
  [22:38:23.164]                   NAME <- NAMES[[kk]]
  [22:38:23.164]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:23.164]                     next
  [22:38:23.164]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:23.164]                 }
  [22:38:23.164]                 NAMES <- toupper(added)
  [22:38:23.164]                 for (kk in seq_along(NAMES)) {
  [22:38:23.164]                   name <- added[[kk]]
  [22:38:23.164]                   NAME <- NAMES[[kk]]
  [22:38:23.164]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:23.164]                     next
  [22:38:23.164]                   args[[name]] <- ""
  [22:38:23.164]                 }
  [22:38:23.164]                 NAMES <- toupper(removed)
  [22:38:23.164]                 for (kk in seq_along(NAMES)) {
  [22:38:23.164]                   name <- removed[[kk]]
  [22:38:23.164]                   NAME <- NAMES[[kk]]
  [22:38:23.164]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:23.164]                     next
  [22:38:23.164]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:23.164]                 }
  [22:38:23.164]                 if (length(args) > 0) 
  [22:38:23.164]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:23.164]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:23.164]             }
  [22:38:23.164]             else {
  [22:38:23.164]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:23.164]             }
  [22:38:23.164]             {
  [22:38:23.164]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:23.164]                   0L) {
  [22:38:23.164]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:23.164]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:23.164]                   base::options(opts)
  [22:38:23.164]                 }
  [22:38:23.164]                 {
  [22:38:23.164]                   NULL
  [22:38:23.164]                   options(future.plan = NULL)
  [22:38:23.164]                   if (is.na(NA_character_)) 
  [22:38:23.164]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:23.164]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:23.164]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:23.164]                     .init = FALSE)
  [22:38:23.164]                 }
  [22:38:23.164]             }
  [22:38:23.164]         }
  [22:38:23.164]     })
  [22:38:23.164]     if (TRUE) {
  [22:38:23.164]         base::sink(type = "output", split = FALSE)
  [22:38:23.164]         if (TRUE) {
  [22:38:23.164]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:23.164]         }
  [22:38:23.164]         else {
  [22:38:23.164]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:23.164]         }
  [22:38:23.164]         base::close(...future.stdout)
  [22:38:23.164]         ...future.stdout <- NULL
  [22:38:23.164]     }
  [22:38:23.164]     ...future.result$conditions <- ...future.conditions
  [22:38:23.164]     ...future.result$finished <- base::Sys.time()
  [22:38:23.164]     ...future.result
  [22:38:23.164] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/rng.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:23.933] plan(): Setting new future strategy stack:
  [22:38:23.934] List of future strategies:
  [22:38:23.934] 1. mirai_multisession:
  [22:38:23.934]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:23.934]    - tweaked: FALSE
  [22:38:23.934]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:23.979] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:23.979] < mirai [$data] >
  [22:38:24.035] getGlobalsAndPackages() ...
  [22:38:24.036] Not searching for globals
  [22:38:24.036] - globals: [0] <none>
  [22:38:24.037] getGlobalsAndPackages() ... DONE
  [22:38:24.037] getGlobalsAndPackages() ...
  [22:38:24.037] 
  [22:38:24.038] - globals: [0] <none>
  [22:38:24.038] getGlobalsAndPackages() ... DONE
  [22:38:24.841] Packages needed by the future expression (n = 0): <none>
  [22:38:24.842] Packages needed by future strategies (n = 0): <none>
  [22:38:24.843] {
  [22:38:24.843]     {
  [22:38:24.843]         {
  [22:38:24.843]             ...future.startTime <- base::Sys.time()
  [22:38:24.843]             {
  [22:38:24.843]                 {
  [22:38:24.843]                   {
  [22:38:24.843]                     base::local({
  [22:38:24.843]                       has_future <- base::requireNamespace("future", 
  [22:38:24.843]                         quietly = TRUE)
  [22:38:24.843]                       if (has_future) {
  [22:38:24.843]                         ns <- base::getNamespace("future")
  [22:38:24.843]                         version <- ns[[".package"]][["version"]]
  [22:38:24.843]                         if (is.null(version)) 
  [22:38:24.843]                           version <- utils::packageVersion("future")
  [22:38:24.843]                       }
  [22:38:24.843]                       else {
  [22:38:24.843]                         version <- NULL
  [22:38:24.843]                       }
  [22:38:24.843]                       if (!has_future || version < "1.8.0") {
  [22:38:24.843]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:24.843]                           "", base::R.version$version.string), 
  [22:38:24.843]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:24.843]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:24.843]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:24.843]                             "release", "version")], collapse = " "), 
  [22:38:24.843]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:24.843]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:24.843]                           info)
  [22:38:24.843]                         info <- base::paste(info, collapse = "; ")
  [22:38:24.843]                         if (!has_future) {
  [22:38:24.843]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:24.843]                             info)
  [22:38:24.843]                         }
  [22:38:24.843]                         else {
  [22:38:24.843]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:24.843]                             info, version)
  [22:38:24.843]                         }
  [22:38:24.843]                         base::stop(msg)
  [22:38:24.843]                       }
  [22:38:24.843]                     })
  [22:38:24.843]                   }
  [22:38:24.843]                   ...future.strategy.old <- future::plan("list")
  [22:38:24.843]                   options(future.plan = NULL)
  [22:38:24.843]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:24.843]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:24.843]                 }
  [22:38:24.843]                 ...future.workdir <- getwd()
  [22:38:24.843]             }
  [22:38:24.843]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:24.843]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:24.843]         }
  [22:38:24.843]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:24.843]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:24.843]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:24.843]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:24.843]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:24.843]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:24.843]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:24.843]             base::names(...future.oldOptions))
  [22:38:24.843]     }
  [22:38:24.843]     if (FALSE) {
  [22:38:24.843]     }
  [22:38:24.843]     else {
  [22:38:24.843]         if (TRUE) {
  [22:38:24.843]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:24.843]                 open = "w")
  [22:38:24.843]         }
  [22:38:24.843]         else {
  [22:38:24.843]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:24.843]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:24.843]         }
  [22:38:24.843]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:24.843]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:24.843]             base::sink(type = "output", split = FALSE)
  [22:38:24.843]             base::close(...future.stdout)
  [22:38:24.843]         }, add = TRUE)
  [22:38:24.843]     }
  [22:38:24.843]     ...future.frame <- base::sys.nframe()
  [22:38:24.843]     ...future.conditions <- base::list()
  [22:38:24.843]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:24.843]     if (FALSE) {
  [22:38:24.843]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:24.843]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:24.843]     }
  [22:38:24.843]     ...future.result <- base::tryCatch({
  [22:38:24.843]         base::withCallingHandlers({
  [22:38:24.843]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:24.843]             future::FutureResult(value = ...future.value$value, 
  [22:38:24.843]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:24.843]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:24.843]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:24.843]                     ...future.globalenv.names))
  [22:38:24.843]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:24.843]         }, condition = base::local({
  [22:38:24.843]             c <- base::c
  [22:38:24.843]             inherits <- base::inherits
  [22:38:24.843]             invokeRestart <- base::invokeRestart
  [22:38:24.843]             length <- base::length
  [22:38:24.843]             list <- base::list
  [22:38:24.843]             seq.int <- base::seq.int
  [22:38:24.843]             signalCondition <- base::signalCondition
  [22:38:24.843]             sys.calls <- base::sys.calls
  [22:38:24.843]             `[[` <- base::`[[`
  [22:38:24.843]             `+` <- base::`+`
  [22:38:24.843]             `<<-` <- base::`<<-`
  [22:38:24.843]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:24.843]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:24.843]                   3L)]
  [22:38:24.843]             }
  [22:38:24.843]             function(cond) {
  [22:38:24.843]                 is_error <- inherits(cond, "error")
  [22:38:24.843]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:24.843]                   NULL)
  [22:38:24.843]                 if (is_error) {
  [22:38:24.843]                   sessionInformation <- function() {
  [22:38:24.843]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:24.843]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:24.843]                       search = base::search(), system = base::Sys.info())
  [22:38:24.843]                   }
  [22:38:24.843]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:24.843]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:24.843]                     cond$call), session = sessionInformation(), 
  [22:38:24.843]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:24.843]                   signalCondition(cond)
  [22:38:24.843]                 }
  [22:38:24.843]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:24.843]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:24.843]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:24.843]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:24.843]                   if (FALSE && !signal) {
  [22:38:24.843]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:24.843]                     {
  [22:38:24.843]                       inherits <- base::inherits
  [22:38:24.843]                       invokeRestart <- base::invokeRestart
  [22:38:24.843]                       is.null <- base::is.null
  [22:38:24.843]                       muffled <- FALSE
  [22:38:24.843]                       if (inherits(cond, "message")) {
  [22:38:24.843]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:24.843]                         if (muffled) 
  [22:38:24.843]                           invokeRestart("muffleMessage")
  [22:38:24.843]                       }
  [22:38:24.843]                       else if (inherits(cond, "warning")) {
  [22:38:24.843]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:24.843]                         if (muffled) 
  [22:38:24.843]                           invokeRestart("muffleWarning")
  [22:38:24.843]                       }
  [22:38:24.843]                       else if (inherits(cond, "condition")) {
  [22:38:24.843]                         if (!is.null(pattern)) {
  [22:38:24.843]                           computeRestarts <- base::computeRestarts
  [22:38:24.843]                           grepl <- base::grepl
  [22:38:24.843]                           restarts <- computeRestarts(cond)
  [22:38:24.843]                           for (restart in restarts) {
  [22:38:24.843]                             name <- restart$name
  [22:38:24.843]                             if (is.null(name)) 
  [22:38:24.843]                               next
  [22:38:24.843]                             if (!grepl(pattern, name)) 
  [22:38:24.843]                               next
  [22:38:24.843]                             invokeRestart(restart)
  [22:38:24.843]                             muffled <- TRUE
  [22:38:24.843]                             break
  [22:38:24.843]                           }
  [22:38:24.843]                         }
  [22:38:24.843]                       }
  [22:38:24.843]                       invisible(muffled)
  [22:38:24.843]                     }
  [22:38:24.843]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:24.843]                   }
  [22:38:24.843]                 }
  [22:38:24.843]                 else {
  [22:38:24.843]                   if (TRUE) {
  [22:38:24.843]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:24.843]                     {
  [22:38:24.843]                       inherits <- base::inherits
  [22:38:24.843]                       invokeRestart <- base::invokeRestart
  [22:38:24.843]                       is.null <- base::is.null
  [22:38:24.843]                       muffled <- FALSE
  [22:38:24.843]                       if (inherits(cond, "message")) {
  [22:38:24.843]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:24.843]                         if (muffled) 
  [22:38:24.843]                           invokeRestart("muffleMessage")
  [22:38:24.843]                       }
  [22:38:24.843]                       else if (inherits(cond, "warning")) {
  [22:38:24.843]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:24.843]                         if (muffled) 
  [22:38:24.843]                           invokeRestart("muffleWarning")
  [22:38:24.843]                       }
  [22:38:24.843]                       else if (inherits(cond, "condition")) {
  [22:38:24.843]                         if (!is.null(pattern)) {
  [22:38:24.843]                           computeRestarts <- base::computeRestarts
  [22:38:24.843]                           grepl <- base::grepl
  [22:38:24.843]                           restarts <- computeRestarts(cond)
  [22:38:24.843]                           for (restart in restarts) {
  [22:38:24.843]                             name <- restart$name
  [22:38:24.843]                             if (is.null(name)) 
  [22:38:24.843]                               next
  [22:38:24.843]                             if (!grepl(pattern, name)) 
  [22:38:24.843]                               next
  [22:38:24.843]                             invokeRestart(restart)
  [22:38:24.843]                             muffled <- TRUE
  [22:38:24.843]                             break
  [22:38:24.843]                           }
  [22:38:24.843]                         }
  [22:38:24.843]                       }
  [22:38:24.843]                       invisible(muffled)
  [22:38:24.843]                     }
  [22:38:24.843]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:24.843]                   }
  [22:38:24.843]                 }
  [22:38:24.843]             }
  [22:38:24.843]         }))
  [22:38:24.843]     }, error = function(ex) {
  [22:38:24.843]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:24.843]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:24.843]                 ...future.rng), started = ...future.startTime, 
  [22:38:24.843]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:24.843]             version = "1.8"), class = "FutureResult")
  [22:38:24.843]     }, finally = {
  [22:38:24.843]         if (!identical(...future.workdir, getwd())) 
  [22:38:24.843]             setwd(...future.workdir)
  [22:38:24.843]         {
  [22:38:24.843]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:24.843]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:24.843]             }
  [22:38:24.843]             base::options(...future.oldOptions)
  [22:38:24.843]             if (.Platform$OS.type == "windows") {
  [22:38:24.843]                 old_names <- names(...future.oldEnvVars)
  [22:38:24.843]                 envs <- base::Sys.getenv()
  [22:38:24.843]                 names <- names(envs)
  [22:38:24.843]                 common <- intersect(names, old_names)
  [22:38:24.843]                 added <- setdiff(names, old_names)
  [22:38:24.843]                 removed <- setdiff(old_names, names)
  [22:38:24.843]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:24.843]                   envs[common]]
  [22:38:24.843]                 NAMES <- toupper(changed)
  [22:38:24.843]                 args <- list()
  [22:38:24.843]                 for (kk in seq_along(NAMES)) {
  [22:38:24.843]                   name <- changed[[kk]]
  [22:38:24.843]                   NAME <- NAMES[[kk]]
  [22:38:24.843]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:24.843]                     next
  [22:38:24.843]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:24.843]                 }
  [22:38:24.843]                 NAMES <- toupper(added)
  [22:38:24.843]                 for (kk in seq_along(NAMES)) {
  [22:38:24.843]                   name <- added[[kk]]
  [22:38:24.843]                   NAME <- NAMES[[kk]]
  [22:38:24.843]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:24.843]                     next
  [22:38:24.843]                   args[[name]] <- ""
  [22:38:24.843]                 }
  [22:38:24.843]                 NAMES <- toupper(removed)
  [22:38:24.843]                 for (kk in seq_along(NAMES)) {
  [22:38:24.843]                   name <- removed[[kk]]
  [22:38:24.843]                   NAME <- NAMES[[kk]]
  [22:38:24.843]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:24.843]                     next
  [22:38:24.843]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:24.843]                 }
  [22:38:24.843]                 if (length(args) > 0) 
  [22:38:24.843]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:24.843]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:24.843]             }
  [22:38:24.843]             else {
  [22:38:24.843]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:24.843]             }
  [22:38:24.843]             {
  [22:38:24.843]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:24.843]                   0L) {
  [22:38:24.843]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:24.843]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:24.843]                   base::options(opts)
  [22:38:24.843]                 }
  [22:38:24.843]                 {
  [22:38:24.843]                   NULL
  [22:38:24.843]                   options(future.plan = NULL)
  [22:38:24.843]                   if (is.na(NA_character_)) 
  [22:38:24.843]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:24.843]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:24.843]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:24.843]                     .init = FALSE)
  [22:38:24.843]                 }
  [22:38:24.843]             }
  [22:38:24.843]         }
  [22:38:24.843]     })
  [22:38:24.843]     if (TRUE) {
  [22:38:24.843]         base::sink(type = "output", split = FALSE)
  [22:38:24.843]         if (TRUE) {
  [22:38:24.843]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:24.843]         }
  [22:38:24.843]         else {
  [22:38:24.843]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:24.843]         }
  [22:38:24.843]         base::close(...future.stdout)
  [22:38:24.843]         ...future.stdout <- NULL
  [22:38:24.843]     }
  [22:38:24.843]     ...future.result$conditions <- ...future.conditions
  [22:38:24.843]     ...future.result$finished <- base::Sys.time()
  [22:38:24.843]     ...future.result
  [22:38:24.843] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/stdout.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [22:38:25.775] plan(): Setting new future strategy stack:
  [22:38:25.776] List of future strategies:
  [22:38:25.776] 1. mirai_multisession:
  [22:38:25.776]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:25.776]    - tweaked: FALSE
  [22:38:25.776]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:25.817] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:25.818] < mirai [$data] >
  [22:38:25.888] getGlobalsAndPackages() ...
  [22:38:25.888] Not searching for globals
  [22:38:25.889] - globals: [0] <none>
  [22:38:25.889] getGlobalsAndPackages() ... DONE
  [22:38:25.889] getGlobalsAndPackages() ...
  [22:38:25.890] 
  [22:38:25.890] - globals: [0] <none>
  [22:38:25.890] getGlobalsAndPackages() ... DONE
  [22:38:26.849] Packages needed by the future expression (n = 0): <none>
  [22:38:26.850] Packages needed by future strategies (n = 0): <none>
  [22:38:26.851] {
  [22:38:26.851]     {
  [22:38:26.851]         {
  [22:38:26.851]             ...future.startTime <- base::Sys.time()
  [22:38:26.851]             {
  [22:38:26.851]                 {
  [22:38:26.851]                   {
  [22:38:26.851]                     base::local({
  [22:38:26.851]                       has_future <- base::requireNamespace("future", 
  [22:38:26.851]                         quietly = TRUE)
  [22:38:26.851]                       if (has_future) {
  [22:38:26.851]                         ns <- base::getNamespace("future")
  [22:38:26.851]                         version <- ns[[".package"]][["version"]]
  [22:38:26.851]                         if (is.null(version)) 
  [22:38:26.851]                           version <- utils::packageVersion("future")
  [22:38:26.851]                       }
  [22:38:26.851]                       else {
  [22:38:26.851]                         version <- NULL
  [22:38:26.851]                       }
  [22:38:26.851]                       if (!has_future || version < "1.8.0") {
  [22:38:26.851]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:26.851]                           "", base::R.version$version.string), 
  [22:38:26.851]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:26.851]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:26.851]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:26.851]                             "release", "version")], collapse = " "), 
  [22:38:26.851]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:26.851]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:26.851]                           info)
  [22:38:26.851]                         info <- base::paste(info, collapse = "; ")
  [22:38:26.851]                         if (!has_future) {
  [22:38:26.851]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:26.851]                             info)
  [22:38:26.851]                         }
  [22:38:26.851]                         else {
  [22:38:26.851]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:26.851]                             info, version)
  [22:38:26.851]                         }
  [22:38:26.851]                         base::stop(msg)
  [22:38:26.851]                       }
  [22:38:26.851]                     })
  [22:38:26.851]                   }
  [22:38:26.851]                   ...future.strategy.old <- future::plan("list")
  [22:38:26.851]                   options(future.plan = NULL)
  [22:38:26.851]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:26.851]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:26.851]                 }
  [22:38:26.851]                 ...future.workdir <- getwd()
  [22:38:26.851]             }
  [22:38:26.851]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:26.851]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:26.851]         }
  [22:38:26.851]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:26.851]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:26.851]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:26.851]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:26.851]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:26.851]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:26.851]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:26.851]             base::names(...future.oldOptions))
  [22:38:26.851]     }
  [22:38:26.851]     if (FALSE) {
  [22:38:26.851]     }
  [22:38:26.851]     else {
  [22:38:26.851]         if (TRUE) {
  [22:38:26.851]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:26.851]                 open = "w")
  [22:38:26.851]         }
  [22:38:26.851]         else {
  [22:38:26.851]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:26.851]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:26.851]         }
  [22:38:26.851]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:26.851]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:26.851]             base::sink(type = "output", split = FALSE)
  [22:38:26.851]             base::close(...future.stdout)
  [22:38:26.851]         }, add = TRUE)
  [22:38:26.851]     }
  [22:38:26.851]     ...future.frame <- base::sys.nframe()
  [22:38:26.851]     ...future.conditions <- base::list()
  [22:38:26.851]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:26.851]     if (FALSE) {
  [22:38:26.851]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:26.851]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:26.851]     }
  [22:38:26.851]     ...future.result <- base::tryCatch({
  [22:38:26.851]         base::withCallingHandlers({
  [22:38:26.851]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:26.851]             future::FutureResult(value = ...future.value$value, 
  [22:38:26.851]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:26.851]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:26.851]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:26.851]                     ...future.globalenv.names))
  [22:38:26.851]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:26.851]         }, condition = base::local({
  [22:38:26.851]             c <- base::c
  [22:38:26.851]             inherits <- base::inherits
  [22:38:26.851]             invokeRestart <- base::invokeRestart
  [22:38:26.851]             length <- base::length
  [22:38:26.851]             list <- base::list
  [22:38:26.851]             seq.int <- base::seq.int
  [22:38:26.851]             signalCondition <- base::signalCondition
  [22:38:26.851]             sys.calls <- base::sys.calls
  [22:38:26.851]             `[[` <- base::`[[`
  [22:38:26.851]             `+` <- base::`+`
  [22:38:26.851]             `<<-` <- base::`<<-`
  [22:38:26.851]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:26.851]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:26.851]                   3L)]
  [22:38:26.851]             }
  [22:38:26.851]             function(cond) {
  [22:38:26.851]                 is_error <- inherits(cond, "error")
  [22:38:26.851]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:26.851]                   NULL)
  [22:38:26.851]                 if (is_error) {
  [22:38:26.851]                   sessionInformation <- function() {
  [22:38:26.851]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:26.851]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:26.851]                       search = base::search(), system = base::Sys.info())
  [22:38:26.851]                   }
  [22:38:26.851]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:26.851]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:26.851]                     cond$call), session = sessionInformation(), 
  [22:38:26.851]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:26.851]                   signalCondition(cond)
  [22:38:26.851]                 }
  [22:38:26.851]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:26.851]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:26.851]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:26.851]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:26.851]                   if (FALSE && !signal) {
  [22:38:26.851]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:26.851]                     {
  [22:38:26.851]                       inherits <- base::inherits
  [22:38:26.851]                       invokeRestart <- base::invokeRestart
  [22:38:26.851]                       is.null <- base::is.null
  [22:38:26.851]                       muffled <- FALSE
  [22:38:26.851]                       if (inherits(cond, "message")) {
  [22:38:26.851]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:26.851]                         if (muffled) 
  [22:38:26.851]                           invokeRestart("muffleMessage")
  [22:38:26.851]                       }
  [22:38:26.851]                       else if (inherits(cond, "warning")) {
  [22:38:26.851]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:26.851]                         if (muffled) 
  [22:38:26.851]                           invokeRestart("muffleWarning")
  [22:38:26.851]                       }
  [22:38:26.851]                       else if (inherits(cond, "condition")) {
  [22:38:26.851]                         if (!is.null(pattern)) {
  [22:38:26.851]                           computeRestarts <- base::computeRestarts
  [22:38:26.851]                           grepl <- base::grepl
  [22:38:26.851]                           restarts <- computeRestarts(cond)
  [22:38:26.851]                           for (restart in restarts) {
  [22:38:26.851]                             name <- restart$name
  [22:38:26.851]                             if (is.null(name)) 
  [22:38:26.851]                               next
  [22:38:26.851]                             if (!grepl(pattern, name)) 
  [22:38:26.851]                               next
  [22:38:26.851]                             invokeRestart(restart)
  [22:38:26.851]                             muffled <- TRUE
  [22:38:26.851]                             break
  [22:38:26.851]                           }
  [22:38:26.851]                         }
  [22:38:26.851]                       }
  [22:38:26.851]                       invisible(muffled)
  [22:38:26.851]                     }
  [22:38:26.851]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:26.851]                   }
  [22:38:26.851]                 }
  [22:38:26.851]                 else {
  [22:38:26.851]                   if (TRUE) {
  [22:38:26.851]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:26.851]                     {
  [22:38:26.851]                       inherits <- base::inherits
  [22:38:26.851]                       invokeRestart <- base::invokeRestart
  [22:38:26.851]                       is.null <- base::is.null
  [22:38:26.851]                       muffled <- FALSE
  [22:38:26.851]                       if (inherits(cond, "message")) {
  [22:38:26.851]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:26.851]                         if (muffled) 
  [22:38:26.851]                           invokeRestart("muffleMessage")
  [22:38:26.851]                       }
  [22:38:26.851]                       else if (inherits(cond, "warning")) {
  [22:38:26.851]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:26.851]                         if (muffled) 
  [22:38:26.851]                           invokeRestart("muffleWarning")
  [22:38:26.851]                       }
  [22:38:26.851]                       else if (inherits(cond, "condition")) {
  [22:38:26.851]                         if (!is.null(pattern)) {
  [22:38:26.851]                           computeRestarts <- base::computeRestarts
  [22:38:26.851]                           grepl <- base::grepl
  [22:38:26.851]                           restarts <- computeRestarts(cond)
  [22:38:26.851]                           for (restart in restarts) {
  [22:38:26.851]                             name <- restart$name
  [22:38:26.851]                             if (is.null(name)) 
  [22:38:26.851]                               next
  [22:38:26.851]                             if (!grepl(pattern, name)) 
  [22:38:26.851]                               next
  [22:38:26.851]                             invokeRestart(restart)
  [22:38:26.851]                             muffled <- TRUE
  [22:38:26.851]                             break
  [22:38:26.851]                           }
  [22:38:26.851]                         }
  [22:38:26.851]                       }
  [22:38:26.851]                       invisible(muffled)
  [22:38:26.851]                     }
  [22:38:26.851]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:26.851]                   }
  [22:38:26.851]                 }
  [22:38:26.851]             }
  [22:38:26.851]         }))
  [22:38:26.851]     }, error = function(ex) {
  [22:38:26.851]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:26.851]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:26.851]                 ...future.rng), started = ...future.startTime, 
  [22:38:26.851]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:26.851]             version = "1.8"), class = "FutureResult")
  [22:38:26.851]     }, finally = {
  [22:38:26.851]         if (!identical(...future.workdir, getwd())) 
  [22:38:26.851]             setwd(...future.workdir)
  [22:38:26.851]         {
  [22:38:26.851]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:26.851]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:26.851]             }
  [22:38:26.851]             base::options(...future.oldOptions)
  [22:38:26.851]             if (.Platform$OS.type == "windows") {
  [22:38:26.851]                 old_names <- names(...future.oldEnvVars)
  [22:38:26.851]                 envs <- base::Sys.getenv()
  [22:38:26.851]                 names <- names(envs)
  [22:38:26.851]                 common <- intersect(names, old_names)
  [22:38:26.851]                 added <- setdiff(names, old_names)
  [22:38:26.851]                 removed <- setdiff(old_names, names)
  [22:38:26.851]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:26.851]                   envs[common]]
  [22:38:26.851]                 NAMES <- toupper(changed)
  [22:38:26.851]                 args <- list()
  [22:38:26.851]                 for (kk in seq_along(NAMES)) {
  [22:38:26.851]                   name <- changed[[kk]]
  [22:38:26.851]                   NAME <- NAMES[[kk]]
  [22:38:26.851]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:26.851]                     next
  [22:38:26.851]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:26.851]                 }
  [22:38:26.851]                 NAMES <- toupper(added)
  [22:38:26.851]                 for (kk in seq_along(NAMES)) {
  [22:38:26.851]                   name <- added[[kk]]
  [22:38:26.851]                   NAME <- NAMES[[kk]]
  [22:38:26.851]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:26.851]                     next
  [22:38:26.851]                   args[[name]] <- ""
  [22:38:26.851]                 }
  [22:38:26.851]                 NAMES <- toupper(removed)
  [22:38:26.851]                 for (kk in seq_along(NAMES)) {
  [22:38:26.851]                   name <- removed[[kk]]
  [22:38:26.851]                   NAME <- NAMES[[kk]]
  [22:38:26.851]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:26.851]                     next
  [22:38:26.851]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:26.851]                 }
  [22:38:26.851]                 if (length(args) > 0) 
  [22:38:26.851]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:26.851]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:26.851]             }
  [22:38:26.851]             else {
  [22:38:26.851]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:26.851]             }
  [22:38:26.851]             {
  [22:38:26.851]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:26.851]                   0L) {
  [22:38:26.851]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:26.851]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:26.851]                   base::options(opts)
  [22:38:26.851]                 }
  [22:38:26.851]                 {
  [22:38:26.851]                   NULL
  [22:38:26.851]                   options(future.plan = NULL)
  [22:38:26.851]                   if (is.na(NA_character_)) 
  [22:38:26.851]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:26.851]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:26.851]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:26.851]                     .init = FALSE)
  [22:38:26.851]                 }
  [22:38:26.851]             }
  [22:38:26.851]         }
  [22:38:26.851]     })
  [22:38:26.851]     if (TRUE) {
  [22:38:26.851]         base::sink(type = "output", split = FALSE)
  [22:38:26.851]         if (TRUE) {
  [22:38:26.851]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:26.851]         }
  [22:38:26.851]         else {
  [22:38:26.851]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:26.851]         }
  [22:38:26.851]         base::close(...future.stdout)
  [22:38:26.851]         ...future.stdout <- NULL
  [22:38:26.851]     }
  [22:38:26.851]     ...future.result$conditions <- ...future.conditions
  [22:38:26.851]     ...future.result$finished <- base::Sys.time()
  [22:38:26.851]     ...future.result
  [22:38:26.851] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted
Running the tests in ‘tests/zzz,future_lapply.R’ failed.
Complete output:
  > ## This requires mirai (>= 0.13.2)
  > if (packageVersion("mirai") >= "0.13.2") {
  + 
  + source("incl/start.R")
  + library("listenv")
  + 
  + if (requireNamespace("future.apply", quietly = TRUE)) {
  +   future_lapply <- future.apply::future_lapply
  +   
  +   strategies <- c("mirai_multisession")
  +   
  +   message("*** future_lapply() ...")
  +   
  +   message("- future_lapply(x, FUN = vector, ...) ...")
  +   
  +   x <- list(a = "integer", c = "character", c = "list")
  +   str(list(x = x))
  +   
  +   y0 <- lapply(x, FUN = vector, length = 2L)
  +   str(list(y0 = y0))
  +   
  +   for (strategy in strategies) {
  +     mprintf("- plan('%s') ...", strategy)
  +     plan(strategy)
  +     stopifnot(nbrOfWorkers() < Inf)
  +     
  +     for (scheduling in list(FALSE, TRUE)) {
  +       y <- future_lapply(x, FUN = vector, length = 2L,
  +                          future.scheduling = scheduling)
  +       str(list(y = y))
  +       stopifnot(identical(y, y0))
  +     }
  +   }
  +   
  +   
  +   message("- future_lapply(x, FUN = base::vector, ...) ...")
  +   
  +   x <- list(a = "integer", c = "character", c = "list")
  +   str(list(x = x))
  +   
  +   y0 <- lapply(x, FUN = base::vector, length = 2L)
  +   str(list(y0 = y0))
  +   
  +   for (strategy in strategies) {
  +     mprintf("- plan('%s') ...", strategy)
  +     plan(strategy)
  +     stopifnot(nbrOfWorkers() < Inf)
  +   
  +     for (scheduling in list(FALSE, TRUE)) {
  +       y <- future_lapply(x, FUN = base::vector, length = 2L,
  +                          future.scheduling = scheduling)
  +       str(list(y = y))
  +       stopifnot(identical(y, y0))
  +     }
  +   }
  +   
  +   message("- future_lapply(x, FUN = future:::hpaste, ...) ...")
  +   
  +   x <- list(a = c("hello", b = 1:100))
  +   str(list(x = x))
  +   
  +   y0 <- lapply(x, FUN = future:::hpaste, collapse = "; ", maxHead = 3L)
  +   str(list(y0 = y0))
  +   
  +   for (strategy in strategies) {
  +     mprintf("- plan('%s') ...", strategy)
  +     plan(strategy)
  +     stopifnot(nbrOfWorkers() < Inf)
  +   
  +     for (scheduling in list(FALSE, TRUE)) {
  +       y <- future_lapply(x, FUN = future:::hpaste, collapse = "; ",
  +                          maxHead = 3L, future.scheduling = scheduling)
  +       str(list(y = y))
  +       stopifnot(identical(y, y0))
  +     }
  +   }
  +   
  +   
  +   message("- future_lapply(x, FUN = listenv::listenv, ...) ...")
  +   
  +   x <- list()
  +   
  +   y <- listenv()
  +   y$A <- 3L
  +   x$a <- y
  +   
  +   y <- listenv()
  +   y$A <- 3L
  +   y$B <- c("hello", b = 1:100)
  +   x$b <- y
  +   
  +   print(x)
  +   
  +   y0 <- lapply(x, FUN = listenv::mapping)
  +   str(list(y0 = y0))
  +   
  +   for (strategy in strategies) {
  +     mprintf("- plan('%s') ...", strategy)
  +     plan(strategy)
  +     stopifnot(nbrOfWorkers() < Inf)
  +   
  +     for (scheduling in list(FALSE, TRUE)) {
  +       y <- future_lapply(x, FUN = listenv::mapping, future.scheduling = scheduling)
  +       str(list(y = y))
  +       stopifnot(identical(y, y0))
  +     }
  +   }
  +   
  +   
  +   message("- future_lapply(x, FUN, ...) for large length(x) ...")
  +   a <- 3.14
  +   x <- 1:1e6
  +   
  +   y <- future_lapply(x, FUN = function(z) sqrt(z + a))
  +   y <- unlist(y, use.names = FALSE)
  +   
  +   stopifnot(all.equal(y, sqrt(x + a)))
  +   
  +   
  +   message("- future_lapply() with global in non-attached package ...")
  +   library("tools")
  +   my_ext <- function(x) file_ext(x)
  +   y_truth <- lapply("abc.txt", FUN = my_ext)
  +   
  +   for (strategy in strategies) {
  +     plan(strategy)
  +     y <- future_lapply("abc.txt", FUN = my_ext)
  +     stopifnot(identical(y, y_truth))
  +   }
  +   
  +   message("*** future_lapply() ... DONE")
  + }
  + 
  + source("incl/end.R")
  + 
  + }
  Loading required package: future
  [22:38:27.751] plan(): Setting new future strategy stack:
  [22:38:27.752] List of future strategies:
  [22:38:27.752] 1. mirai_multisession:
  [22:38:27.752]    - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
  [22:38:27.752]    - tweaked: FALSE
  [22:38:27.752]    - call: future::plan(future.mirai::mirai_multisession)
  [22:38:27.778] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
  [22:38:27.778] < mirai [$data] >
  [22:38:27.828] getGlobalsAndPackages() ...
  [22:38:27.828] Not searching for globals
  [22:38:27.829] - globals: [0] <none>
  [22:38:27.829] getGlobalsAndPackages() ... DONE
  [22:38:27.830] getGlobalsAndPackages() ...
  [22:38:27.830] 
  [22:38:27.830] - globals: [0] <none>
  [22:38:27.830] getGlobalsAndPackages() ... DONE
  [22:38:28.998] Packages needed by the future expression (n = 0): <none>
  [22:38:28.998] Packages needed by future strategies (n = 0): <none>
  [22:38:29.000] {
  [22:38:29.000]     {
  [22:38:29.000]         {
  [22:38:29.000]             ...future.startTime <- base::Sys.time()
  [22:38:29.000]             {
  [22:38:29.000]                 {
  [22:38:29.000]                   {
  [22:38:29.000]                     base::local({
  [22:38:29.000]                       has_future <- base::requireNamespace("future", 
  [22:38:29.000]                         quietly = TRUE)
  [22:38:29.000]                       if (has_future) {
  [22:38:29.000]                         ns <- base::getNamespace("future")
  [22:38:29.000]                         version <- ns[[".package"]][["version"]]
  [22:38:29.000]                         if (is.null(version)) 
  [22:38:29.000]                           version <- utils::packageVersion("future")
  [22:38:29.000]                       }
  [22:38:29.000]                       else {
  [22:38:29.000]                         version <- NULL
  [22:38:29.000]                       }
  [22:38:29.000]                       if (!has_future || version < "1.8.0") {
  [22:38:29.000]                         info <- base::c(r_version = base::gsub("R version ", 
  [22:38:29.000]                           "", base::R.version$version.string), 
  [22:38:29.000]                           platform = base::sprintf("%s (%s-bit)", 
  [22:38:29.000]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [22:38:29.000]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [22:38:29.000]                             "release", "version")], collapse = " "), 
  [22:38:29.000]                           hostname = base::Sys.info()[["nodename"]])
  [22:38:29.000]                         info <- base::sprintf("%s: %s", base::names(info), 
  [22:38:29.000]                           info)
  [22:38:29.000]                         info <- base::paste(info, collapse = "; ")
  [22:38:29.000]                         if (!has_future) {
  [22:38:29.000]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [22:38:29.000]                             info)
  [22:38:29.000]                         }
  [22:38:29.000]                         else {
  [22:38:29.000]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [22:38:29.000]                             info, version)
  [22:38:29.000]                         }
  [22:38:29.000]                         base::stop(msg)
  [22:38:29.000]                       }
  [22:38:29.000]                     })
  [22:38:29.000]                   }
  [22:38:29.000]                   ...future.strategy.old <- future::plan("list")
  [22:38:29.000]                   options(future.plan = NULL)
  [22:38:29.000]                   Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:29.000]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [22:38:29.000]                 }
  [22:38:29.000]                 ...future.workdir <- getwd()
  [22:38:29.000]             }
  [22:38:29.000]             ...future.oldOptions <- base::as.list(base::.Options)
  [22:38:29.000]             ...future.oldEnvVars <- base::Sys.getenv()
  [22:38:29.000]         }
  [22:38:29.000]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [22:38:29.000]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [22:38:29.000]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [22:38:29.000]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [22:38:29.000]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [22:38:29.000]             future.stdout.windows.reencode = NULL, width = 80L)
  [22:38:29.000]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [22:38:29.000]             base::names(...future.oldOptions))
  [22:38:29.000]     }
  [22:38:29.000]     if (FALSE) {
  [22:38:29.000]     }
  [22:38:29.000]     else {
  [22:38:29.000]         if (TRUE) {
  [22:38:29.000]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [22:38:29.000]                 open = "w")
  [22:38:29.000]         }
  [22:38:29.000]         else {
  [22:38:29.000]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [22:38:29.000]                 windows = "NUL", "/dev/null"), open = "w")
  [22:38:29.000]         }
  [22:38:29.000]         base::sink(...future.stdout, type = "output", split = FALSE)
  [22:38:29.000]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [22:38:29.000]             base::sink(type = "output", split = FALSE)
  [22:38:29.000]             base::close(...future.stdout)
  [22:38:29.000]         }, add = TRUE)
  [22:38:29.000]     }
  [22:38:29.000]     ...future.frame <- base::sys.nframe()
  [22:38:29.000]     ...future.conditions <- base::list()
  [22:38:29.000]     ...future.rng <- base::globalenv()$.Random.seed
  [22:38:29.000]     if (FALSE) {
  [22:38:29.000]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [22:38:29.000]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [22:38:29.000]     }
  [22:38:29.000]     ...future.result <- base::tryCatch({
  [22:38:29.000]         base::withCallingHandlers({
  [22:38:29.000]             ...future.value <- base::withVisible(base::local(NA))
  [22:38:29.000]             future::FutureResult(value = ...future.value$value, 
  [22:38:29.000]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:29.000]                   ...future.rng), globalenv = if (FALSE) 
  [22:38:29.000]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [22:38:29.000]                     ...future.globalenv.names))
  [22:38:29.000]                 else NULL, started = ...future.startTime, version = "1.8")
  [22:38:29.000]         }, condition = base::local({
  [22:38:29.000]             c <- base::c
  [22:38:29.000]             inherits <- base::inherits
  [22:38:29.000]             invokeRestart <- base::invokeRestart
  [22:38:29.000]             length <- base::length
  [22:38:29.000]             list <- base::list
  [22:38:29.000]             seq.int <- base::seq.int
  [22:38:29.000]             signalCondition <- base::signalCondition
  [22:38:29.000]             sys.calls <- base::sys.calls
  [22:38:29.000]             `[[` <- base::`[[`
  [22:38:29.000]             `+` <- base::`+`
  [22:38:29.000]             `<<-` <- base::`<<-`
  [22:38:29.000]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [22:38:29.000]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [22:38:29.000]                   3L)]
  [22:38:29.000]             }
  [22:38:29.000]             function(cond) {
  [22:38:29.000]                 is_error <- inherits(cond, "error")
  [22:38:29.000]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [22:38:29.000]                   NULL)
  [22:38:29.000]                 if (is_error) {
  [22:38:29.000]                   sessionInformation <- function() {
  [22:38:29.000]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [22:38:29.000]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [22:38:29.000]                       search = base::search(), system = base::Sys.info())
  [22:38:29.000]                   }
  [22:38:29.000]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:29.000]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [22:38:29.000]                     cond$call), session = sessionInformation(), 
  [22:38:29.000]                     timestamp = base::Sys.time(), signaled = 0L)
  [22:38:29.000]                   signalCondition(cond)
  [22:38:29.000]                 }
  [22:38:29.000]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [22:38:29.000]                   signal <- FALSE && inherits(cond, character(0))
  [22:38:29.000]                   ...future.conditions[[length(...future.conditions) + 
  [22:38:29.000]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [22:38:29.000]                   if (FALSE && !signal) {
  [22:38:29.000]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:29.000]                     {
  [22:38:29.000]                       inherits <- base::inherits
  [22:38:29.000]                       invokeRestart <- base::invokeRestart
  [22:38:29.000]                       is.null <- base::is.null
  [22:38:29.000]                       muffled <- FALSE
  [22:38:29.000]                       if (inherits(cond, "message")) {
  [22:38:29.000]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:29.000]                         if (muffled) 
  [22:38:29.000]                           invokeRestart("muffleMessage")
  [22:38:29.000]                       }
  [22:38:29.000]                       else if (inherits(cond, "warning")) {
  [22:38:29.000]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:29.000]                         if (muffled) 
  [22:38:29.000]                           invokeRestart("muffleWarning")
  [22:38:29.000]                       }
  [22:38:29.000]                       else if (inherits(cond, "condition")) {
  [22:38:29.000]                         if (!is.null(pattern)) {
  [22:38:29.000]                           computeRestarts <- base::computeRestarts
  [22:38:29.000]                           grepl <- base::grepl
  [22:38:29.000]                           restarts <- computeRestarts(cond)
  [22:38:29.000]                           for (restart in restarts) {
  [22:38:29.000]                             name <- restart$name
  [22:38:29.000]                             if (is.null(name)) 
  [22:38:29.000]                               next
  [22:38:29.000]                             if (!grepl(pattern, name)) 
  [22:38:29.000]                               next
  [22:38:29.000]                             invokeRestart(restart)
  [22:38:29.000]                             muffled <- TRUE
  [22:38:29.000]                             break
  [22:38:29.000]                           }
  [22:38:29.000]                         }
  [22:38:29.000]                       }
  [22:38:29.000]                       invisible(muffled)
  [22:38:29.000]                     }
  [22:38:29.000]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:29.000]                   }
  [22:38:29.000]                 }
  [22:38:29.000]                 else {
  [22:38:29.000]                   if (TRUE) {
  [22:38:29.000]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [22:38:29.000]                     {
  [22:38:29.000]                       inherits <- base::inherits
  [22:38:29.000]                       invokeRestart <- base::invokeRestart
  [22:38:29.000]                       is.null <- base::is.null
  [22:38:29.000]                       muffled <- FALSE
  [22:38:29.000]                       if (inherits(cond, "message")) {
  [22:38:29.000]                         muffled <- grepl(pattern, "muffleMessage")
  [22:38:29.000]                         if (muffled) 
  [22:38:29.000]                           invokeRestart("muffleMessage")
  [22:38:29.000]                       }
  [22:38:29.000]                       else if (inherits(cond, "warning")) {
  [22:38:29.000]                         muffled <- grepl(pattern, "muffleWarning")
  [22:38:29.000]                         if (muffled) 
  [22:38:29.000]                           invokeRestart("muffleWarning")
  [22:38:29.000]                       }
  [22:38:29.000]                       else if (inherits(cond, "condition")) {
  [22:38:29.000]                         if (!is.null(pattern)) {
  [22:38:29.000]                           computeRestarts <- base::computeRestarts
  [22:38:29.000]                           grepl <- base::grepl
  [22:38:29.000]                           restarts <- computeRestarts(cond)
  [22:38:29.000]                           for (restart in restarts) {
  [22:38:29.000]                             name <- restart$name
  [22:38:29.000]                             if (is.null(name)) 
  [22:38:29.000]                               next
  [22:38:29.000]                             if (!grepl(pattern, name)) 
  [22:38:29.000]                               next
  [22:38:29.000]                             invokeRestart(restart)
  [22:38:29.000]                             muffled <- TRUE
  [22:38:29.000]                             break
  [22:38:29.000]                           }
  [22:38:29.000]                         }
  [22:38:29.000]                       }
  [22:38:29.000]                       invisible(muffled)
  [22:38:29.000]                     }
  [22:38:29.000]                     muffleCondition(cond, pattern = "^muffle")
  [22:38:29.000]                   }
  [22:38:29.000]                 }
  [22:38:29.000]             }
  [22:38:29.000]         }))
  [22:38:29.000]     }, error = function(ex) {
  [22:38:29.000]         base::structure(base::list(value = NULL, visible = NULL, 
  [22:38:29.000]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [22:38:29.000]                 ...future.rng), started = ...future.startTime, 
  [22:38:29.000]             finished = Sys.time(), session_uuid = NA_character_, 
  [22:38:29.000]             version = "1.8"), class = "FutureResult")
  [22:38:29.000]     }, finally = {
  [22:38:29.000]         if (!identical(...future.workdir, getwd())) 
  [22:38:29.000]             setwd(...future.workdir)
  [22:38:29.000]         {
  [22:38:29.000]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [22:38:29.000]                 ...future.oldOptions$nwarnings <- NULL
  [22:38:29.000]             }
  [22:38:29.000]             base::options(...future.oldOptions)
  [22:38:29.000]             if (.Platform$OS.type == "windows") {
  [22:38:29.000]                 old_names <- names(...future.oldEnvVars)
  [22:38:29.000]                 envs <- base::Sys.getenv()
  [22:38:29.000]                 names <- names(envs)
  [22:38:29.000]                 common <- intersect(names, old_names)
  [22:38:29.000]                 added <- setdiff(names, old_names)
  [22:38:29.000]                 removed <- setdiff(old_names, names)
  [22:38:29.000]                 changed <- common[...future.oldEnvVars[common] != 
  [22:38:29.000]                   envs[common]]
  [22:38:29.000]                 NAMES <- toupper(changed)
  [22:38:29.000]                 args <- list()
  [22:38:29.000]                 for (kk in seq_along(NAMES)) {
  [22:38:29.000]                   name <- changed[[kk]]
  [22:38:29.000]                   NAME <- NAMES[[kk]]
  [22:38:29.000]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:29.000]                     next
  [22:38:29.000]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:29.000]                 }
  [22:38:29.000]                 NAMES <- toupper(added)
  [22:38:29.000]                 for (kk in seq_along(NAMES)) {
  [22:38:29.000]                   name <- added[[kk]]
  [22:38:29.000]                   NAME <- NAMES[[kk]]
  [22:38:29.000]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:29.000]                     next
  [22:38:29.000]                   args[[name]] <- ""
  [22:38:29.000]                 }
  [22:38:29.000]                 NAMES <- toupper(removed)
  [22:38:29.000]                 for (kk in seq_along(NAMES)) {
  [22:38:29.000]                   name <- removed[[kk]]
  [22:38:29.000]                   NAME <- NAMES[[kk]]
  [22:38:29.000]                   if (name != NAME && is.element(NAME, old_names)) 
  [22:38:29.000]                     next
  [22:38:29.000]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [22:38:29.000]                 }
  [22:38:29.000]                 if (length(args) > 0) 
  [22:38:29.000]                   base::do.call(base::Sys.setenv, args = args)
  [22:38:29.000]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [22:38:29.000]             }
  [22:38:29.000]             else {
  [22:38:29.000]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [22:38:29.000]             }
  [22:38:29.000]             {
  [22:38:29.000]                 if (base::length(...future.futureOptionsAdded) > 
  [22:38:29.000]                   0L) {
  [22:38:29.000]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [22:38:29.000]                   base::names(opts) <- ...future.futureOptionsAdded
  [22:38:29.000]                   base::options(opts)
  [22:38:29.000]                 }
  [22:38:29.000]                 {
  [22:38:29.000]                   NULL
  [22:38:29.000]                   options(future.plan = NULL)
  [22:38:29.000]                   if (is.na(NA_character_)) 
  [22:38:29.000]                     Sys.unsetenv("R_FUTURE_PLAN")
  [22:38:29.000]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [22:38:29.000]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
  [22:38:29.000]                     .init = FALSE)
  [22:38:29.000]                 }
  [22:38:29.000]             }
  [22:38:29.000]         }
  [22:38:29.000]     })
  [22:38:29.000]     if (TRUE) {
  [22:38:29.000]         base::sink(type = "output", split = FALSE)
  [22:38:29.000]         if (TRUE) {
  [22:38:29.000]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [22:38:29.000]         }
  [22:38:29.000]         else {
  [22:38:29.000]             ...future.result["stdout"] <- base::list(NULL)
  [22:38:29.000]         }
  [22:38:29.000]         base::close(...future.stdout)
  [22:38:29.000]         ...future.stdout <- NULL
  [22:38:29.000]     }
  [22:38:29.000]     ...future.result$conditions <- ...future.conditions
  [22:38:29.000]     ...future.result$finished <- base::Sys.time()
  [22:38:29.000]     ...future.result
  [22:38:29.000] }
  Error in request(.context(envir[["sock"]]), data = data, send_mode = 3L,  : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: source ... run.MiraiFuture -> do.call -> <Anonymous> -> request
  Execution halted