Running ‘fold.R’ [4s/5s]
  Running ‘future_apply.R’ [9s/13s]
  Running ‘future_by.R’ [8s/11s]
  Running ‘future_eapply.R’ [4s/6s]
  Running ‘future_lapply,RNG.R’ [30s/54s]
  Running ‘future_lapply,globals.R’ [1s/1s]
  Running ‘future_lapply.R’ [32s/39s]
  Running ‘future_mapply,globals.R’ [4s/9s]
  Running ‘future_mapply.R’ [18s/24s]
  Running ‘future_replicate.R’ [5s/7s]
  Running ‘future_sapply.R’ [50s/66s]
  Running ‘future_tapply.R’ [1s/1s]
  Running ‘future_vapply.R’ [15s/20s]
  Running ‘globals,tricky_recursive.R’ [2s/3s]
  Running ‘options,nested.R’ [2s/5s]
  Running ‘rng.R’ [1s/1s]
  Running ‘stdout.R’ [8s/25s]
  Running ‘utils.R’ [0s/1s]
Running the tests in ‘tests/future_lapply,globals.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: future
  [15:50:56.459] plan(<NULL>, .skip = FALSE, .cleanup = NA, .init = TRUE) ...
  [15:50:56.460] |  Getting current ("next") strategy: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [15:50:56.460] plan(<FutureStrategy>, .skip = FALSE, .cleanup = NA, .init = TRUE) ... done
  [15:50:56.460] plan(<character>, .skip = FALSE, .cleanup = NA, .init = TRUE) ...
  [15:50:56.581] |  plan(): plan_set(<1 strategies>, skip = FALSE, cleanup = NA, init = TRUE) ...
  [15:50:56.581] |  :  all.equal() for FutureStrategyList ...
  [15:50:56.582] |  :  .  New stack:
  [15:50:56.582] |  :  .  List of 1
  [15:50:56.582] |  :  .   $ :function (..., gc = FALSE, earlySignal = FALSE, envir = parent.frame())  
  [15:50:56.582] |  :  .    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [15:50:56.582] |  :  .    ..- attr(*, "factory")=function (..., maxSizeOfObjects = +Inf)  
  [15:50:56.582] |  :  .    .. ..- attr(*, "tweakable")= chr [1:5] "maxSizeOfObjects" "earlySignal" "gc" "interrupts" ...
  [15:50:56.582] |  :  .    ..- attr(*, "tweakable")= chr [1:5] "maxSizeOfObjects" "earlySignal" "gc" "interrupts" ...
  [15:50:56.582] |  :  .    ..- attr(*, "call")= language future::plan("sequential")
  [15:50:56.582] |  :  .   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [15:50:56.605] |  :  .  Old stack:
  [15:50:56.605] |  :  .  List of 1
  [15:50:56.605] |  :  .   $ :function (..., gc = FALSE, earlySignal = FALSE, envir = parent.frame())  
  [15:50:56.605] |  :  .    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [15:50:56.605] |  :  .    ..- attr(*, "factory")=function (..., maxSizeOfObjects = +Inf)  
  [15:50:56.605] |  :  .    .. ..- attr(*, "tweakable")= chr [1:5] "maxSizeOfObjects" "earlySignal" "gc" "interrupts" ...
  [15:50:56.605] |  :  .    ..- attr(*, "tweakable")= chr [1:5] "maxSizeOfObjects" "earlySignal" "gc" "interrupts" ...
  [15:50:56.605] |  :  .    ..- attr(*, "call")= language plan(sequential)
  [15:50:56.605] |  :  .   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [15:50:56.608] |  :  .  Not identical
  [15:50:56.609] |  :  .  all.equal() for future ...
  [15:50:56.609] |  :  .  |  List of 2
  [15:50:56.609] |  :  .  |   $ target :function (..., gc = FALSE, earlySignal = FALSE, envir = parent.frame())  
  [15:50:56.609] |  :  .  |    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [15:50:56.609] |  :  .  |    ..- attr(*, "factory")=function (..., maxSizeOfObjects = +Inf)  
  [15:50:56.609] |  :  .  |    .. ..- attr(*, "tweakable")= chr [1:5] "maxSizeOfObjects" "earlySignal" "gc" "interrupts" ...
  [15:50:56.609] |  :  .  |    ..- attr(*, "tweakable")= chr [1:5] "maxSizeOfObjects" "earlySignal" "gc" "interrupts" ...
  [15:50:56.609] |  :  .  |    ..- attr(*, "call")= language future::plan("sequential")
  [15:50:56.609] |  :  .  |   $ current:function (..., gc = FALSE, earlySignal = FALSE, envir = parent.frame())  
  [15:50:56.609] |  :  .  |    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [15:50:56.609] |  :  .  |    ..- attr(*, "factory")=function (..., maxSizeOfObjects = +Inf)  
  [15:50:56.609] |  :  .  |    .. ..- attr(*, "tweakable")= chr [1:5] "maxSizeOfObjects" "earlySignal" "gc" "interrupts" ...
  [15:50:56.609] |  :  .  |    ..- attr(*, "tweakable")= chr [1:5] "maxSizeOfObjects" "earlySignal" "gc" "interrupts" ...
  [15:50:56.609] |  :  .  |    ..- attr(*, "call")= language plan(sequential)
  [15:50:56.615] |  :  .  all.equal() for future ... done
  [15:50:56.615] |  :  all.equal() for FutureStrategyList ... done
  [15:50:56.615] |  :  plan(): Skip setting new future strategy stack because it is the same as the current one:
  [15:50:56.616] |  :  List of future strategies:
  [15:50:56.616] |  :  1. sequential:
  [15:50:56.616] |  :     - args: function (..., gc = FALSE, earlySignal = FALSE, envir = parent.frame(), workers = "<NULL>")
  [15:50:56.616] |  :     - tweaked: FALSE
  [15:50:56.616] |  :     - call: plan(sequential)
  [15:50:56.617] |  plan(): plan_set(<1 strategies>, skip = FALSE, cleanup = NA, init = TRUE) ... done
  [15:50:56.617] plan(<sequential>, .skip = FALSE, .cleanup = NA, .init = TRUE) ... done
  > library("tools") ## toTitleCase()
  > 
  > options(future.debug = FALSE)
  > options(future.apply.debug = TRUE)
  > 
  > message("*** future_lapply() - globals ...")
  *** future_lapply() - globals ...
  > 
  > plan(cluster, workers = "localhost")
  Error in serverSocket(port = port) : 
    creation of server socket failed: port 35854 cannot be opened
  Calls: plan ... makeCluster -> do.call -> <Anonymous> -> serverSocket
  Execution halted