Running 'fold.R' [7s]
  Running 'future_apply.R' [8s]
  Running 'future_by.R' [8s]
  Running 'future_eapply.R' [6s]
  Running 'future_lapply,RNG.R' [37s]
  Running 'future_lapply,globals.R' [7s]
  Running 'future_lapply.R' [16s]
  Running 'future_mapply,globals.R' [6s]
  Running 'future_mapply.R' [7s]
  Running 'future_replicate.R' [7s]
  Running 'future_sapply.R' [24s]
  Running 'future_tapply.R' [2s]
  Running 'future_vapply.R' [11s]
  Running 'globals,tricky_recursive.R' [5s]
  Running 'rng.R' [1s]
  Running 'stdout.R' [14s]
  Running 'utils.R' [1s]
Running the tests in 'tests/future_lapply,RNG.R' failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [05:46:43.232] plan(): Setting new future strategy stack:
  [05:46:43.247] List of future strategies:
  [05:46:43.247] 1. sequential:
  [05:46:43.247]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:46:43.247]    - tweaked: FALSE
  [05:46:43.247]    - call: future::plan("sequential")
  [05:46:43.247] plan(): nbrOfWorkers() = 1
  > 
  > message("*** future_lapply() and RNGs ...")
  *** future_lapply() and RNGs ...
  > 
  > options(future.debug = FALSE)
  > 
  > message("* future_lapply(x, ..., future.seed = <invalid>) ...")
  * future_lapply(x, ..., future.seed = <invalid>) ...
  > 
  > res <- tryCatch({
  +   y <- future_lapply(1:3, FUN = identity, future.seed = as.list(1:2))
  + }, error = identity)
  > print(res)
  <simpleError in make_rng_seeds(nX, seed = future.seed, debug = debug): Argument 'seed' is a list, which specifies the sequence of seeds to be used for each element iterated over, but length(seed) != number of elements: 2 != 3>
  > stopifnot(inherits(res, "simpleError"))
  > 
  > res <- tryCatch({
  +   y <- future_lapply(1:3, FUN = identity, future.seed = list(1, 2, 3:4))
  + }, error = identity)
  > print(res)
  <simpleError in make_rng_seeds(nX, seed = future.seed, debug = debug): The elements of the list specified in argument 'seed' are not all of the same lengths (did you really pass RNG seeds?): 1, 2>
  > stopifnot(inherits(res, "simpleError"))
  > 
  > res <- tryCatch({
  +   y <- future_lapply(1:3, FUN = identity, future.seed = as.list(1:3))
  + }, error = identity)
  > print(res)
  <simpleError in make_rng_seeds(nX, seed = future.seed, debug = debug): Argument 'seed' is invalid. Pre-generated random seeds must be valid .Random.seed seeds, which means they should be all integers and consists of two or more elements, not just one.>
  > stopifnot(inherits(res, "simpleError"))
  > 
  > seeds <- lapply(1:3, FUN = as_lecyer_cmrg_seed)
  > res <- tryCatch({
  +   y <- future_lapply(1:3, FUN = identity, future.seed = lapply(seeds, FUN = as.numeric))
  + }, error = identity)
  > print(res)
  <simpleError in make_rng_seeds(nX, seed = future.seed, debug = debug): The elements of the list specified in argument 'seed' are not all integers (did you really pass RNG seeds?): double>
  > stopifnot(inherits(res, "simpleError"))
  > 
  > seeds[[1]][1] <- seeds[[1]][1] + 1L
  > res <- tryCatch({
  +   y <- future_lapply(1:3, FUN = identity, future.seed = seeds)
  + }, error = identity)
  > print(res)
  <simpleError in make_rng_seeds(nX, seed = future.seed, debug = debug): The list in argument 'seed' does not seem to hold elements that are valid .Random.seed values:  int [1:7] 10408 1280795612 -169270483 -442010614 -603558397 -222347416 1489374793>
  > stopifnot(inherits(res, "simpleError"))
  > 
  > message("* future_lapply(x, ..., future.seed = <invalid>) ... DONE")
  * future_lapply(x, ..., future.seed = <invalid>) ... DONE
  > 
  > 
  > ## Iterate of the same set in all tests
  > x <- 1:5
  > 
  > message("* future_lapply(x, ..., future.seed = FALSE) ...")
  * future_lapply(x, ..., future.seed = FALSE) ...
  > 
  > y0 <- y0_nested <- seed00 <- NULL
  > for (cores in 1:availCores) {
  +   message(sprintf("  - Testing with %d cores ...", cores))
  +   options(mc.cores = cores)
  +   
  +   for (strategy in supportedStrategies(cores)) {
  +     message(sprintf("* plan('%s') ...", strategy))
  +     plan(strategy)
  +   
  +     set.seed(0xBEEF)
  +     seed0 <- get_random_seed()
  +     y <- future_lapply(x, FUN = function(i) i, future.seed = FALSE)
  +     y <- unlist(y)
  +     seed <- get_random_seed()
  +     if (is.null(y0)) {
  +       y0 <- y
  +       seed00 <- seed
  +     }
  +     str(list(y = y))
  +     stopifnot(identical(seed, seed0), identical(seed, seed00))
  +     ## NOTE: We cannot guarantee the same random numbers, because
  +     ## future.seed = FALSE.
  +     
  +     message(sprintf("* plan('%s') ... DONE", strategy))
  +   }  ## for (strategy ...)
  +   message(sprintf("  - Testing with %d cores ... DONE", cores))
  + } ## for (core ...)
    - Testing with 1 cores ...
  * plan('sequential') ...
  List of 1
   $ y: int [1:5] 1 2 3 4 5
  * plan('sequential') ... DONE
  * plan('multisession') ...
  List of 1
   $ y: int [1:5] 1 2 3 4 5
  * plan('multisession') ... DONE
    - Testing with 1 cores ... DONE
    - Testing with 2 cores ...
  * plan('multisession') ...
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 11220 cannot be opened
  Warning in doTryCatch(return(expr), name, parentenv, handler) :
    NAs introduced by coercion
  Warning in doTryCatch(return(expr), name, parentenv, handler) :
    NAs introduced by coercion
  Warning in doTryCatch(return(expr), name, parentenv, handler) :
    NAs introduced by coercion
  Warning in doTryCatch(return(expr), name, parentenv, handler) :
    NAs introduced by coercion
  Warning in doTryCatch(return(expr), name, parentenv, handler) :
    NAs introduced by coercion
  Warning in doTryCatch(return(expr), name, parentenv, handler) :
    NAs introduced by coercion
  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 'CRANWIN'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 11220 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 11220 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=future_lapply,RNG.R:168912:CRANWIN:CRAN" -e "try(cat(Sys.getpid(),file=\"D:/temp/RtmpSc8Jld/future.parent=168912.293d05bc4fba.pid\"), silent = TRUE)" -e "parallel:::.slaveRSOCK()" MASTER=localhost PORT=11220 OUT=/dev/null TIMEOUT=120 XDR=TRUE.
   * Worker (PID 106660) was successfully killed: TRUE
   * Troubleshooting suggestions:
     - Suggestion #1: Set 'verbose=TRUE' to see more details.
     - Suggestion #2: On Windows, output from worker when using 'outfile=NULL' is only visible when running R from a terminal (not a GUI).
  Calls: plan ... tryCatchList -> tryCatchOne -> <Anonymous> -> <Anonymous>
  Execution halted