Running ‘000.sessionDetails.R’ [0s/1s]
  Running ‘ClusterRegistry.R’ [2s/12s]
  Running ‘Future-class.R’ [1s/4s]
  Running ‘FutureError.R’ [0s/1s]
  Running ‘FutureGlobals.R’ [0s/1s]
  Running ‘FutureRegistry.R’ [1s/1s]
  Running ‘as.cluster.R’ [1s/4s]
  Running ‘availableCores.R’ [0s/1s]
  Running ‘availableWorkers.R’ [0s/1s]
  Running ‘backtrace.R’ [1s/3s]
  Running ‘cluster-missing-future-pkg.R’ [1s/3s]
  Running ‘cluster.R’ [6s/35s]
  Running ‘constant.R’ [0s/1s]
  Running ‘demo.R’ [8s/16s]
  Running ‘dotdotdot.R’ [2s/6s]
  Running ‘early-signaling.R’ [2s/12s]
  Running ‘future,labels.R’ [1s/2s]
  Running ‘future.R’ [1s/1s]
  Running ‘futureAssign.R’ [2s/6s]
  Running ‘futureAssign_OP.R’ [3s/8s]
  Running ‘futureAssign_OP_with_environment.R’ [1s/1s]
  Running ‘futureAssign_OP_with_listenv.R’ [1s/2s]
  Running ‘futureCall.R’ [3s/11s]
  Running ‘futureOf.R’ [1s/1s]
  Running ‘futureOf_with_environment.R’ [1s/1s]
  Running ‘futureOf_with_listenv.R’ [1s/1s]
  Running ‘futures.R’ [15s/46s]
  Running ‘globals,NSE.R’ [1s/2s]
  Running ‘globals,formulas.R’ [3s/9s]
  Running ‘globals,manual.R’ [2s/3s]
  Running ‘globals,resolve.R’ [1s/5s]
  Running ‘globals,subassignment.R’ [3s/8s]
  Running ‘globals,toolarge.R’ [1s/4s]
  Running ‘globals,tricky.R’ [6s/14s]
  Running ‘globals,tricky_recursive.R’ [1s/1s]
  Running ‘globalsOf,tweaks.R’ [1s/1s]
  Running ‘immediateCondition.R’ [1s/2s]
  Running ‘invalid-owner.R’ [1s/6s]
  Running ‘makeClusterPSOCK.R’ [1s/3s]
  Running ‘mandelbrot.R’ [1s/1s]
  Running ‘mpi.R’ [0s/1s]
  Running ‘multicore,multithreading.R’ [1s/1s]
  Running ‘multicore.R’ [1s/2s]
  Running ‘multiprocess.R’ [1s/2s]
  Running ‘multisession.R’ [3s/15s]
  Running ‘nbrOfWorkers.R’ [3s/15s]
  Running ‘nested_futures,mc.cores.R’ [4s/28s]
  Running ‘nested_futures.R’ [1s/1s]
  Running ‘non-exportable,connections.R’ [1s/5s]
  Running ‘objectSize.R’ [1s/1s]
  Running ‘plan.R’ [2s/6s]
  Running ‘relaying.R’ [1s/3s]
  Running ‘remote.R’ [1s/5s]
  Running ‘requestCore.R’ [1s/3s]
  Running ‘requestNode.R’ [1s/11s]
  Running ‘reserved-keyword-functions.R’ [1s/1s]
  Running ‘resolve.R’ [2s/4s]
  Running ‘resolved-non-blocking-test.R’ [2s/35s]
  Running ‘rng.R’ [9s/18s]
  Running ‘sequential.R’ [1s/1s]
  Running ‘sessionDetails.R’ [1s/1s]
  Running ‘startup.R’ [1s/7s]
  Running ‘stdout.R’ [2s/6s]
  Running ‘transparent.R’ [1s/1s]
  Running ‘tweak.R’ [1s/2s]
  Running ‘utils.R’ [1s/2s]
  Running ‘uuid.R’ [1s/1s]
  Running ‘whichIndex.R’ [1s/1s]
Running the tests in ‘tests/startup.R’ failed.
Complete output:
  > source("incl/start.R")
  [21:38:31.755] plan(): Setting new future strategy stack:
  [21:38:31.756] List of future strategies:
  [21:38:31.756] 1. sequential:
  [21:38:31.756]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.756]    - tweaked: FALSE
  [21:38:31.756]    - call: future::plan("sequential")
  [21:38:31.774] plan(): nbrOfWorkers() = 1
  > 
  > maxCores <- min(2L, availableCores(methods = "system"))
  > 
  > 
  > plan("default")
  [21:38:31.821] plan(): Setting new future strategy stack:
  [21:38:31.821] List of future strategies:
  [21:38:31.821] 1. sequential:
  [21:38:31.821]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.821]    - tweaked: FALSE
  [21:38:31.821]    - call: NULL
  [21:38:31.862] plan(): nbrOfWorkers() = 1
  > strategy0 <- plan()
  >  
  > message("*** parseCmdArgs() ...")
  *** parseCmdArgs() ...
  > 
  > args <- parseCmdArgs()
  > str(args)
   list()
  > 
  > options(future.plan = NULL, future.cmdargs = c("-p", 1L))
  > args <- parseCmdArgs()
  > str(args)
  List of 1
   $ p: int 1
  > stopifnot(args$p == 1L)
  > 
  > options(future.plan = NULL, future.cmdargs = c(sprintf("--parallel=%d", maxCores)))
  > args <- parseCmdArgs()
  > str(args)
  List of 1
   $ p: int 2
  > stopifnot(args$p == maxCores)
  > 
  > options(future.plan = NULL, future.cmdargs = c("-p", 1L, sprintf("--parallel=%d", maxCores)))
  > args <- parseCmdArgs()
  > str(args)
  List of 1
   $ p: int 2
  > stopifnot(args$p == maxCores)
  > 
  > options(future.plan = NULL, future.cmdargs = c("-p", 0L))
  > args <- parseCmdArgs()
  Warning: future: Ignoring invalid number of processes specified in command-line option: -p 0
  > stopifnot(is.null(args$p))
  > res <- tryCatch(parseCmdArgs(), warning = function(w) w)
  > stopifnot(inherits(res, "warning"))
  > 
  > options(future.plan = NULL, future.cmdargs = c("-p", .Machine$integer.max))
  > args <- parseCmdArgs()
  Warning: future: Ignoring requested number of processes, because it is greater than the number of cores/child processes available (= 32) to this R process: -p 2147483647
  > stopifnot(is.null(args$p))
  > res <- tryCatch(parseCmdArgs(), warning = function(w) w)
  > stopifnot(inherits(res, "warning"))
  > 
  > options(future.plan = NULL, future.cmdargs = NULL)
  > 
  > message("*** parseCmdArgs() ... DONE")
  *** parseCmdArgs() ... DONE
  > 
  > 
  > 
  > message("*** .onLoad() ...")
  *** .onLoad() ...
  > plan("default")
  [21:38:31.895] plan(): Setting new future strategy stack:
  [21:38:31.895] List of future strategies:
  [21:38:31.895] 1. sequential:
  [21:38:31.895]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.895]    - tweaked: FALSE
  [21:38:31.895]    - call: NULL
  [21:38:31.896] plan(): nbrOfWorkers() = 1
  > pkgname <- "future"
  > 
  > message("- .onLoad() w/out command-line options ...")
  - .onLoad() w/out command-line options ...
  > options(future.plan = NULL, future.cmdargs = NULL)
  > .onLoad(pkgname, pkgname)
  [21:38:31.897] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:31.899] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:31.907] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  [21:38:31.908] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:31.908] Setting plan('default')
  [21:38:31.908] plan(): Setting new future strategy stack:
  [21:38:31.908] List of future strategies:
  [21:38:31.908] 1. sequential:
  [21:38:31.908]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.908]    - tweaked: FALSE
  [21:38:31.908]    - call: NULL
  [21:38:31.909] plan(): nbrOfWorkers() = 1
  > strategy <- plan("next")
  > print(strategy)
  sequential:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: FALSE
  - call: NULL
  > stopifnot(all(class(strategy) == class(strategy0)))
  > plan("default")
  [21:38:31.910] plan(): Setting new future strategy stack:
  [21:38:31.911] List of future strategies:
  [21:38:31.911] 1. sequential:
  [21:38:31.911]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.911]    - tweaked: FALSE
  [21:38:31.911]    - call: NULL
  [21:38:31.911] plan(): nbrOfWorkers() = 1
  > message("- .onLoad() w/out command-line options ... DONE")
  - .onLoad() w/out command-line options ... DONE
  > 
  > message("- .onLoad() w/ -p 1 ...")
  - .onLoad() w/ -p 1 ...
  > options(future.plan = NULL, future.cmdargs = c("-p", 1))
  > .onLoad(pkgname, pkgname)
  [21:38:31.912] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:31.914] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:31.915] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  [21:38:31.915] R command-line argument: -p 1
  [21:38:31.915]  => options(future.plan = sequential)
  [21:38:31.916] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:31.916] Setting plan('default')
  [21:38:31.916] plan(): Setting new future strategy stack:
  [21:38:31.916] List of future strategies:
  [21:38:31.916] 1. sequential:
  [21:38:31.916]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.916]    - tweaked: FALSE
  [21:38:31.916]    - call: NULL
  [21:38:31.917] plan(): nbrOfWorkers() = 1
  > strategy <- plan("next")
  > print(strategy)
  sequential:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: FALSE
  - call: NULL
  > ## future.plan can be either a string or a future function
  > default <- getOption("future.plan", "sequential")
  > if (is.function(default)) default <- class(default)
  > stopifnot(inherits(strategy, default))
  > plan("default")
  [21:38:31.918] plan(): Setting new future strategy stack:
  [21:38:31.919] List of future strategies:
  [21:38:31.919] 1. sequential:
  [21:38:31.919]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.919]    - tweaked: FALSE
  [21:38:31.919]    - call: NULL
  [21:38:31.920] plan(): nbrOfWorkers() = 1
  > message("- .onLoad() w/ -p 1 ... DONE")
  - .onLoad() w/ -p 1 ... DONE
  > 
  > message("- .onLoad() w/ --parallel=1 ...")
  - .onLoad() w/ --parallel=1 ...
  > plan("default")
  [21:38:31.920] plan(): Setting new future strategy stack:
  [21:38:31.921] List of future strategies:
  [21:38:31.921] 1. sequential:
  [21:38:31.921]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.921]    - tweaked: FALSE
  [21:38:31.921]    - call: NULL
  [21:38:31.921] plan(): nbrOfWorkers() = 1
  > options(future.plan = NULL, future.cmdargs = "-parallel=1")
  > .onLoad(pkgname, pkgname)
  [21:38:31.922] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:31.924] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:31.924] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  [21:38:31.925] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:31.925] Setting plan('default')
  [21:38:31.925] plan(): Setting new future strategy stack:
  [21:38:31.926] List of future strategies:
  [21:38:31.926] 1. sequential:
  [21:38:31.926]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.926]    - tweaked: FALSE
  [21:38:31.926]    - call: NULL
  [21:38:31.926] plan(): nbrOfWorkers() = 1
  > strategy <- plan("next")
  > print(strategy)
  sequential:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: FALSE
  - call: NULL
  > ## future.plan can be either a string or a future function
  > default <- getOption("future.plan", "sequential")
  > if (is.function(default)) default <- class(default)
  > stopifnot(inherits(strategy, default))
  > plan("default")
  [21:38:31.927] plan(): Setting new future strategy stack:
  [21:38:31.928] List of future strategies:
  [21:38:31.928] 1. sequential:
  [21:38:31.928]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.928]    - tweaked: FALSE
  [21:38:31.928]    - call: NULL
  [21:38:31.928] plan(): nbrOfWorkers() = 1
  > message("- .onLoad() w/ --parallel=1 ... DONE")
  - .onLoad() w/ --parallel=1 ... DONE
  > 
  > message("- .onLoad() w/ -p 2 ...")
  - .onLoad() w/ -p 2 ...
  > options(future.plan = NULL, future.cmdargs = c("-p", 2))
  > .onLoad(pkgname, pkgname)
  [21:38:31.929] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:31.931] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:31.932] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  [21:38:31.932] R command-line argument: -p 2
  [21:38:31.932]  => options(future.plan = tweak(multiprocess, workers = 2))
  [21:38:31.933] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:31.933] Setting plan('default')
  [21:38:31.933] plan(): Setting new future strategy stack:
  [21:38:31.935] List of future strategies:
  [21:38:31.935] 1. multiprocess:
  [21:38:31.935]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = 2L, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.935]    - tweaked: TRUE
  [21:38:31.935]    - call: NULL
  [21:38:31.936] plan(): nbrOfWorkers() = 2
  > strategy <- plan("next")
  > print(strategy)
  multiprocess:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = 2L, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: TRUE
  - call: NULL
  > if (maxCores >= 2) {
  +   stopifnot(inherits(strategy, "multiprocess"))
  + } else {
  +   stopifnot(all(class(strategy) == class(strategy0)))
  + }
  > plan("default")
  [21:38:31.937] plan(): Setting new future strategy stack:
  [21:38:31.937] List of future strategies:
  [21:38:31.937] 1. multiprocess:
  [21:38:31.937]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = 2L, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.937]    - tweaked: TRUE
  [21:38:31.937]    - call: NULL
  [21:38:31.938] plan(): nbrOfWorkers() = 2
  > message("- .onLoad() w/ -p 2 ... DONE")
  - .onLoad() w/ -p 2 ... DONE
  > 
  > message("- .onLoad() w/ -p 0 ...")
  - .onLoad() w/ -p 0 ...
  > options(future.plan = NULL, future.cmdargs = c("-p", 0))
  > .onLoad(pkgname, pkgname)
  [21:38:31.939] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:31.941] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:31.941] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  Warning: future: Ignoring invalid number of processes specified in command-line option: -p 0
  [21:38:31.942] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:31.942] Setting plan('default')
  [21:38:31.942] plan(): Setting new future strategy stack:
  [21:38:31.943] List of future strategies:
  [21:38:31.943] 1. sequential:
  [21:38:31.943]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.943]    - tweaked: FALSE
  [21:38:31.943]    - call: NULL
  [21:38:31.944] plan(): nbrOfWorkers() = 1
  > strategy <- plan("next")
  > print(strategy)
  sequential:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: FALSE
  - call: NULL
  > stopifnot(all(class(strategy) == class(strategy0)))
  > plan("default")
  [21:38:31.944] plan(): Setting new future strategy stack:
  [21:38:31.945] List of future strategies:
  [21:38:31.945] 1. sequential:
  [21:38:31.945]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.945]    - tweaked: FALSE
  [21:38:31.945]    - call: NULL
  [21:38:31.945] plan(): nbrOfWorkers() = 1
  > message("- .onLoad() w/ -p 0 ... DONE")
  - .onLoad() w/ -p 0 ... DONE
  > 
  > message("- .onLoad() w/ -p -1 ...")
  - .onLoad() w/ -p -1 ...
  > options(future.plan = NULL, future.cmdargs = c("-p", -1))
  > .onLoad(pkgname, pkgname)
  [21:38:31.946] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:31.948] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:31.948] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  Warning: future: Ignoring invalid number of processes specified in command-line option: -p -1
  [21:38:31.949] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:31.949] Setting plan('default')
  [21:38:31.950] plan(): Setting new future strategy stack:
  [21:38:31.950] List of future strategies:
  [21:38:31.950] 1. sequential:
  [21:38:31.950]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.950]    - tweaked: FALSE
  [21:38:31.950]    - call: NULL
  [21:38:31.951] plan(): nbrOfWorkers() = 1
  > strategy <- plan("next")
  > print(strategy)
  sequential:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: FALSE
  - call: NULL
  > stopifnot(all(class(strategy) == class(strategy0)))
  > plan("default")
  [21:38:31.952] plan(): Setting new future strategy stack:
  [21:38:31.952] List of future strategies:
  [21:38:31.952] 1. sequential:
  [21:38:31.952]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.952]    - tweaked: FALSE
  [21:38:31.952]    - call: NULL
  [21:38:31.953] plan(): nbrOfWorkers() = 1
  > message("- .onLoad() w/ -p -1 ... DONE")
  - .onLoad() w/ -p -1 ... DONE
  > 
  > message("- .onLoad() w/ -p foo ...")
  - .onLoad() w/ -p foo ...
  > options(future.plan = NULL, future.cmdargs = c("-p", "foo"))
  > .onLoad(pkgname, pkgname)
  [21:38:31.954] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:31.956] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:31.956] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  Warning in parseCmdArgs() : NAs introduced by coercion
  Warning: future: Ignoring invalid number of processes specified in command-line option: -p foo
  [21:38:31.957] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:31.957] Setting plan('default')
  [21:38:31.958] plan(): Setting new future strategy stack:
  [21:38:31.958] List of future strategies:
  [21:38:31.958] 1. sequential:
  [21:38:31.958]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.958]    - tweaked: FALSE
  [21:38:31.958]    - call: NULL
  [21:38:31.959] plan(): nbrOfWorkers() = 1
  > strategy <- plan("next")
  > print(strategy)
  sequential:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: FALSE
  - call: NULL
  > stopifnot(all(class(strategy) == class(strategy0)))
  > plan("default")
  [21:38:31.960] plan(): Setting new future strategy stack:
  [21:38:31.960] List of future strategies:
  [21:38:31.960] 1. sequential:
  [21:38:31.960]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.960]    - tweaked: FALSE
  [21:38:31.960]    - call: NULL
  [21:38:31.961] plan(): nbrOfWorkers() = 1
  > message("- .onLoad() w/ -p foo ... DONE")
  - .onLoad() w/ -p foo ... DONE
  > 
  > message("- .onLoad() w/ R_FUTURE_PLAN = 'multisession' ...")
  - .onLoad() w/ R_FUTURE_PLAN = 'multisession' ...
  > Sys.setenv(R_FUTURE_PLAN = "multisession")
  > options(future.plan = NULL, future.cmdargs = NULL)
  > .onLoad(pkgname, pkgname)
  [21:38:31.962] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:31.964] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_PLAN='multisession'
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:31.964] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  [21:38:31.965] R_FUTURE_PLAN='multisession'
  [21:38:31.965]  => options(future.plan = 'multisession')
  [21:38:31.965] Option 'future.plan' = 'multisession'
  [21:38:31.965] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:31.966] Setting plan('default')
  [21:38:31.966] plan(): Setting new future strategy stack:
  [21:38:31.966] List of future strategies:
  [21:38:31.966] 1. multisession:
  [21:38:31.966]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.966]    - tweaked: FALSE
  [21:38:31.966]    - call: plan("default", .init = FALSE)
  [21:38:31.968] plan(): nbrOfWorkers() = 2
  > strategy <- plan("next")
  > print(strategy)
  multisession:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: FALSE
  - call: plan("default", .init = FALSE)
  > stopifnot(inherits(strategy, "multisession"))
  > plan("default")
  [21:38:31.969] plan(): Setting new future strategy stack:
  [21:38:31.969] List of future strategies:
  [21:38:31.969] 1. multisession:
  [21:38:31.969]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.969]    - tweaked: FALSE
  [21:38:31.969]    - call: plan("default")
  [21:38:31.970] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [21:38:31.970] multisession:
  [21:38:31.970] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [21:38:31.970] - tweaked: FALSE
  [21:38:31.970] - call: plan("default")
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 22888
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd630f5da3.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd630f5da3.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=startup.R:1469:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd630f5da3.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=22888 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd37bbe031.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd37bbe031.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=startup.R:1469:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd37bbe031.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=22888 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [21:38:35.338] getGlobalsAndPackages() ...
  [21:38:35.338] Not searching for globals
  [21:38:35.339] - globals: [0] <none>
  [21:38:35.339] getGlobalsAndPackages() ... DONE
  [21:38:35.345] Packages needed by the future expression (n = 0): <none>
  [21:38:35.345] Packages needed by future strategies (n = 0): <none>
  [21:38:35.356] {
  [21:38:35.356]     {
  [21:38:35.356]         ...future.startTime <- base::Sys.time()
  [21:38:35.356]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:38:35.356]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:38:35.356]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:38:35.356]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:38:35.356]             future.resolve.recursive = NULL, width = 80L)
  [21:38:35.356]         {
  [21:38:35.356]             {
  [21:38:35.356]                 {
  [21:38:35.356]                   base::local({
  [21:38:35.356]                     has_future <- base::requireNamespace("future", 
  [21:38:35.356]                       quietly = TRUE)
  [21:38:35.356]                     version <- if (has_future) 
  [21:38:35.356]                       utils::packageVersion("future")
  [21:38:35.356]                     else NULL
  [21:38:35.356]                     if (!has_future || version < "1.8.0") {
  [21:38:35.356]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:38:35.356]                         "", base::R.version$version.string), 
  [21:38:35.356]                         platform = base::sprintf("%s (%s-bit)", 
  [21:38:35.356]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:38:35.356]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:38:35.356]                           "release", "version")], collapse = " "), 
  [21:38:35.356]                         hostname = base::Sys.info()[["nodename"]])
  [21:38:35.356]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:38:35.356]                         info)
  [21:38:35.356]                       info <- base::paste(info, collapse = "; ")
  [21:38:35.356]                       if (!has_future) {
  [21:38:35.356]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:38:35.356]                           info)
  [21:38:35.356]                       }
  [21:38:35.356]                       else {
  [21:38:35.356]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:38:35.356]                           info, version)
  [21:38:35.356]                       }
  [21:38:35.356]                       base::stop(msg)
  [21:38:35.356]                     }
  [21:38:35.356]                   })
  [21:38:35.356]                 }
  [21:38:35.356]                 ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:38:35.356]                 base::options(mc.cores = 1L)
  [21:38:35.356]             }
  [21:38:35.356]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:38:35.356]         }
  [21:38:35.356]     }
  [21:38:35.356]     if (base::is.na(TRUE)) {
  [21:38:35.356]     }
  [21:38:35.356]     else {
  [21:38:35.356]         if (TRUE) {
  [21:38:35.356]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:38:35.356]                 open = "w")
  [21:38:35.356]         }
  [21:38:35.356]         else {
  [21:38:35.356]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:38:35.356]                 windows = "NUL", "/dev/null"), open = "w")
  [21:38:35.356]         }
  [21:38:35.356]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:38:35.356]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:38:35.356]             base::sink(type = "output", split = FALSE)
  [21:38:35.356]             base::close(...future.stdout)
  [21:38:35.356]         }, add = TRUE)
  [21:38:35.356]     }
  [21:38:35.356]     ...future.frame <- base::sys.nframe()
  [21:38:35.356]     ...future.conditions <- base::list()
  [21:38:35.356]     ...future.rng <- base::globalenv()$.Random.seed
  [21:38:35.356]     ...future.result <- base::tryCatch({
  [21:38:35.356]         base::withCallingHandlers({
  [21:38:35.356]             ...future.value <- base::withVisible(base::local({
  [21:38:35.356]                 ...future.sendCondition <- local({
  [21:38:35.356]                   sendCondition <- NULL
  [21:38:35.356]                   function(frame = 1L) {
  [21:38:35.356]                     if (is.function(sendCondition)) 
  [21:38:35.356]                       return(sendCondition)
  [21:38:35.356]                     ns <- getNamespace("parallel")
  [21:38:35.356]                     if (exists("sendData", mode = "function", 
  [21:38:35.356]                       envir = ns)) {
  [21:38:35.356]                       parallel_sendData <- get("sendData", mode = "function", 
  [21:38:35.356]                         envir = ns)
  [21:38:35.356]                       envir <- sys.frame(frame)
  [21:38:35.356]                       master <- NULL
  [21:38:35.356]                       while (!identical(envir, .GlobalEnv) && 
  [21:38:35.356]                         !identical(envir, emptyenv())) {
  [21:38:35.356]                         if (exists("master", mode = "list", envir = envir, 
  [21:38:35.356]                           inherits = FALSE)) {
  [21:38:35.356]                           master <- get("master", mode = "list", 
  [21:38:35.356]                             envir = envir, inherits = FALSE)
  [21:38:35.356]                           if (inherits(master, "SOCKnode")) {
  [21:38:35.356]                             sendCondition <<- function(cond) {
  [21:38:35.356]                               data <- list(type = "VALUE", value = cond, 
  [21:38:35.356]                                 success = TRUE)
  [21:38:35.356]                               parallel_sendData(master, data)
  [21:38:35.356]                             }
  [21:38:35.356]                             return(sendCondition)
  [21:38:35.356]                           }
  [21:38:35.356]                         }
  [21:38:35.356]                         frame <- frame + 1L
  [21:38:35.356]                         envir <- sys.frame(frame)
  [21:38:35.356]                       }
  [21:38:35.356]                     }
  [21:38:35.356]                     sendCondition <<- function(cond) NULL
  [21:38:35.356]                   }
  [21:38:35.356]                 })
  [21:38:35.356]                 withCallingHandlers({
  [21:38:35.356]                   NA
  [21:38:35.356]                 }, immediateCondition = function(cond) {
  [21:38:35.356]                   sendCondition <- ...future.sendCondition()
  [21:38:35.356]                   sendCondition(cond)
  [21:38:35.356]                   muffleCondition <- function (cond) 
  [21:38:35.356]                   {
  [21:38:35.356]                     inherits <- base::inherits
  [21:38:35.356]                     invokeRestart <- base::invokeRestart
  [21:38:35.356]                     muffled <- FALSE
  [21:38:35.356]                     if (inherits(cond, "message")) {
  [21:38:35.356]                       invokeRestart("muffleMessage")
  [21:38:35.356]                       muffled <- TRUE
  [21:38:35.356]                     }
  [21:38:35.356]                     else if (inherits(cond, "warning")) {
  [21:38:35.356]                       invokeRestart("muffleWarning")
  [21:38:35.356]                       muffled <- TRUE
  [21:38:35.356]                     }
  [21:38:35.356]                     else if (inherits(cond, "condition")) {
  [21:38:35.356]                       computeRestarts <- base::computeRestarts
  [21:38:35.356]                       grepl <- base::grepl
  [21:38:35.356]                       is.null <- base::is.null
  [21:38:35.356]                       restarts <- computeRestarts(cond)
  [21:38:35.356]                       for (restart in restarts) {
  [21:38:35.356]                         name <- restart$name
  [21:38:35.356]                         if (is.null(name)) 
  [21:38:35.356]                           next
  [21:38:35.356]                         if (!grepl("^muffle", name)) 
  [21:38:35.356]                           next
  [21:38:35.356]                         invokeRestart(restart)
  [21:38:35.356]                         muffled <- TRUE
  [21:38:35.356]                         break
  [21:38:35.356]                       }
  [21:38:35.356]                     }
  [21:38:35.356]                     invisible(muffled)
  [21:38:35.356]                   }
  [21:38:35.356]                   muffleCondition(cond)
  [21:38:35.356]                 })
  [21:38:35.356]             }))
  [21:38:35.356]             future::FutureResult(value = ...future.value$value, 
  [21:38:35.356]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:38:35.356]                   ...future.rng), started = ...future.startTime, 
  [21:38:35.356]                 version = "1.8")
  [21:38:35.356]         }, condition = base::local({
  [21:38:35.356]             c <- base::c
  [21:38:35.356]             inherits <- base::inherits
  [21:38:35.356]             invokeRestart <- base::invokeRestart
  [21:38:35.356]             length <- base::length
  [21:38:35.356]             list <- base::list
  [21:38:35.356]             seq.int <- base::seq.int
  [21:38:35.356]             signalCondition <- base::signalCondition
  [21:38:35.356]             sys.calls <- base::sys.calls
  [21:38:35.356]             Sys.time <- base::Sys.time
  [21:38:35.356]             `[[` <- base::`[[`
  [21:38:35.356]             `+` <- base::`+`
  [21:38:35.356]             `<<-` <- base::`<<-`
  [21:38:35.356]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:38:35.356]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:38:35.356]                   3L)]
  [21:38:35.356]             }
  [21:38:35.356]             function(cond) {
  [21:38:35.356]                 if (inherits(cond, "error")) {
  [21:38:35.356]                   sessionInformation <- function() {
  [21:38:35.356]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:38:35.356]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:38:35.356]                       search = base::search(), system = base::Sys.info())
  [21:38:35.356]                   }
  [21:38:35.356]                   ...future.conditions[[length(...future.conditions) + 
  [21:38:35.356]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:38:35.356]                     cond$call), session = sessionInformation(), 
  [21:38:35.356]                     timestamp = Sys.time(), signaled = 0L)
  [21:38:35.356]                   signalCondition(cond)
  [21:38:35.356]                 }
  [21:38:35.356]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:38:35.356]                 ))) {
  [21:38:35.356]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:38:35.356]                   ...future.conditions[[length(...future.conditions) + 
  [21:38:35.356]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:38:35.356]                   if (!signal) {
  [21:38:35.356]                     muffleCondition <- function (cond) 
  [21:38:35.356]                     {
  [21:38:35.356]                       inherits <- base::inherits
  [21:38:35.356]                       invokeRestart <- base::invokeRestart
  [21:38:35.356]                       muffled <- FALSE
  [21:38:35.356]                       if (inherits(cond, "message")) {
  [21:38:35.356]                         invokeRestart("muffleMessage")
  [21:38:35.356]                         muffled <- TRUE
  [21:38:35.356]                       }
  [21:38:35.356]                       else if (inherits(cond, "warning")) {
  [21:38:35.356]                         invokeRestart("muffleWarning")
  [21:38:35.356]                         muffled <- TRUE
  [21:38:35.356]                       }
  [21:38:35.356]                       else if (inherits(cond, "condition")) {
  [21:38:35.356]                         computeRestarts <- base::computeRestarts
  [21:38:35.356]                         grepl <- base::grepl
  [21:38:35.356]                         is.null <- base::is.null
  [21:38:35.356]                         restarts <- computeRestarts(cond)
  [21:38:35.356]                         for (restart in restarts) {
  [21:38:35.356]                           name <- restart$name
  [21:38:35.356]                           if (is.null(name)) 
  [21:38:35.356]                             next
  [21:38:35.356]                           if (!grepl("^muffle", name)) 
  [21:38:35.356]                             next
  [21:38:35.356]                           invokeRestart(restart)
  [21:38:35.356]                           muffled <- TRUE
  [21:38:35.356]                           break
  [21:38:35.356]                         }
  [21:38:35.356]                       }
  [21:38:35.356]                       invisible(muffled)
  [21:38:35.356]                     }
  [21:38:35.356]                     muffleCondition(cond)
  [21:38:35.356]                   }
  [21:38:35.356]                 }
  [21:38:35.356]             }
  [21:38:35.356]         }))
  [21:38:35.356]     }, error = function(ex) {
  [21:38:35.356]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:38:35.356]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:38:35.356]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:38:35.356]     }, finally = {
  [21:38:35.356]         {
  [21:38:35.356]             {
  [21:38:35.356]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:38:35.356]             }
  [21:38:35.356]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:38:35.356]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:38:35.356]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [21:38:35.356]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [21:38:35.356]                 ...) 
  [21:38:35.356]             {
  [21:38:35.356]                 if (substitute) 
  [21:38:35.356]                   expr <- substitute(expr)
  [21:38:35.356]                 if (is.function(workers)) 
  [21:38:35.356]                   workers <- workers()
  [21:38:35.356]                 workers <- as.integer(workers)
  [21:38:35.356]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [21:38:35.356]                   workers >= 1)
  [21:38:35.356]                 if (workers == 1L) {
  [21:38:35.356]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:38:35.356]                     lazy = TRUE, seed = seed, globals = globals, 
  [21:38:35.356]                     local = TRUE, label = label, ...))
  [21:38:35.356]                 }
  [21:38:35.356]                 workers <- ClusterRegistry("start", workers = workers)
  [21:38:35.356]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [21:38:35.356]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:38:35.356]                   globals = globals, persistent = persistent, 
  [21:38:35.356]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [21:38:35.356]                   label = label, ...)
  [21:38:35.356]                 if (!future$lazy) 
  [21:38:35.356]                   future <- run(future)
  [21:38:35.356]                 invisible(future)
  [21:38:35.356]             }), .cleanup = FALSE, .init = FALSE)
  [21:38:35.356]         }
  [21:38:35.356]         base::options(...future.oldOptions)
  [21:38:35.356]     })
  [21:38:35.356]     Sys.time
  [21:38:35.356]     if (base::is.na(TRUE)) {
  [21:38:35.356]     }
  [21:38:35.356]     else {
  [21:38:35.356]         base::sink(type = "output", split = FALSE)
  [21:38:35.356]         if (TRUE) {
  [21:38:35.356]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:38:35.356]         }
  [21:38:35.356]         else {
  [21:38:35.356]             ...future.result["stdout"] <- base::list(NULL)
  [21:38:35.356]         }
  [21:38:35.356]         base::close(...future.stdout)
  [21:38:35.356]         ...future.stdout <- NULL
  [21:38:35.356]     }
  [21:38:35.356]     ...future.result$conditions <- ...future.conditions
  [21:38:35.356]     ...future.result
  [21:38:35.356] }
  [21:38:35.374] MultisessionFuture started
  [21:38:35.375] result() for ClusterFuture ...
  [21:38:35.376] receiveMessageFromWorker() for ClusterFuture ...
  [21:38:35.376] - Validating connection of MultisessionFuture
  [21:38:35.501] - received message: FutureResult
  [21:38:35.502] - Received FutureResult
  [21:38:35.508] - Erased future from FutureRegistry
  [21:38:35.509] result() for ClusterFuture ...
  [21:38:35.509] - result already collected: FutureResult
  [21:38:35.510] result() for ClusterFuture ... done
  [21:38:35.510] receiveMessageFromWorker() for ClusterFuture ... done
  [21:38:35.510] result() for ClusterFuture ... done
  [21:38:35.511] result() for ClusterFuture ...
  [21:38:35.511] - result already collected: FutureResult
  [21:38:35.511] result() for ClusterFuture ... done
  [21:38:35.512] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [21:38:35.513] plan(): nbrOfWorkers() = 2
  > Sys.setenv(R_FUTURE_PLAN = "")
  > message("- .onLoad() w/ R_FUTURE_PLAN = 'multisession' ... DONE")
  - .onLoad() w/ R_FUTURE_PLAN = 'multisession' ... DONE
  > 
  > message("- .onLoad() w/ future.plan = 'multisession' ...")
  - .onLoad() w/ future.plan = 'multisession' ...
  > options(future.plan = NULL, future.plan = 'multisession', future.cmdargs = NULL)
  > .onLoad(pkgname, pkgname)
  [21:38:35.513] Detected 'R CMD check':
   - adjusting defaults to be a good citizen
  [21:38:35.517] Future-specific environment variables:
  - R_FUTURE_MAKENODEPSOCK_AUTOKILL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT='120'
  - R_FUTURE_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
  - R_FUTURE_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
  - R_FUTURE_MAKENODEPSOCK_TIMEOUT='120'
  - R_FUTURE_PLAN=''
  - R_FUTURE_RANDOM_PORTS='20000:39999'
  - R_FUTURE_WAIT_INTERVAL='0.01'
  [21:38:35.517] R_FUTURE_PSOCK_RELAY_IMMEDIATE=''
  [21:38:35.518] Option 'future.plan' = 'multisession'
  [21:38:35.518] R process uuid: 8e964b00-6c6f-e2e7-ca64-890001d73ea3
  [21:38:35.518] Setting plan('default')
  [21:38:35.519] plan(): Setting new future strategy stack:
  [21:38:35.519] List of future strategies:
  [21:38:35.519] 1. multisession:
  [21:38:35.519]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [21:38:35.519]    - tweaked: FALSE
  [21:38:35.519]    - call: plan("default", .init = FALSE)
  [21:38:35.521] plan(): nbrOfWorkers() = 2
  > strategy <- plan("next")
  > print(strategy)
  multisession:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  - tweaked: FALSE
  - call: plan("default", .init = FALSE)
  > stopifnot(inherits(strategy, "multisession"))
  > plan("default")
  [21:38:35.522] plan(): Setting new future strategy stack:
  [21:38:35.522] List of future strategies:
  [21:38:35.522] 1. multisession:
  [21:38:35.522]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [21:38:35.522]    - tweaked: FALSE
  [21:38:35.522]    - call: plan("default")
  [21:38:35.523] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [21:38:35.523] multisession:
  [21:38:35.523] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [21:38:35.523] - tweaked: FALSE
  [21:38:35.523] - call: plan("default")
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 37016
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd3b8dea7b.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd3b8dea7b.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=startup.R:1469:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd3b8dea7b.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=37016 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Detected a warning from socketConnection(): 'port 37016 cannot be opened'
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 37016 cannot be opened
  Killing worker process (PID 4643) if still alive
  [21:38:37.711] Attempting to find a working pid_exists_*() function ...
  Call: tools::pskill(1469, signal = 0L)
  [1] TRUE
  Call: tools::pskill(1469, signal = 0L)
  [1] TRUE
  [21:38:37.712] - success
  [21:38:37.712] Attempting to find a working pid_exists_*() function ... done
  Worker (PID 4643) was successfully killed: TRUE
  Error in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  : 
    Failed to launch and connect to R worker on local machine 'localhost' from local machine 'gimli2'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 37016 cannot be opened' (which suggests that this port is either already occupied by another process or blocked by the firewall on your local machine)
   * The localhost socket connection that failed to connect to the R worker used port 37016 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=startup.R:1469:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpYNzjig/future.parent=1469.5bd3b8dea7b.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=37016 OUT=/dev/null TIMEOUT=120 XDR=TRUE.
   * Worker (PID 4643) was successfully killed: TRUE
   * Troubleshooting suggestions:
     - Suggestion #1: Set 'outfile=NULL' to see output from worker.
  Calls: plan ... tryCatchList -> tryCatchOne -> <Anonymous> -> <Anonymous>
  Execution halted