Running '000.sessionDetails.R' [1s]
  Running 'ClusterRegistry.R' [7s]
  Running 'Future-class.R' [3s]
  Running 'FutureError.R' [1s]
  Running 'FutureGlobals.R' [1s]
  Running 'FutureRegistry.R' [1s]
  Running 'as.cluster.R' [2s]
  Running 'availableCores.R' [1s]
  Running 'availableWorkers.R' [1s]
  Running 'backtrace.R' [3s]
  Running 'cluster-missing-future-pkg.R' [2s]
  Running 'cluster.R' [12s]
  Running 'constant.R' [1s]
  Running 'demo.R' [3s]
  Running 'dotdotdot.R' [3s]
  Running 'early-signaling.R' [11s]
  Running 'future,labels.R' [3s]
  Running 'future.R' [1s]
  Running 'futureAssign.R' [3s]
  Running 'futureAssign_OP.R' [4s]
  Running 'futureAssign_OP_with_environment.R' [1s]
  Running 'futureAssign_OP_with_listenv.R' [1s]
  Running 'futureCall.R' [5s]
  Running 'futureOf.R' [1s]
  Running 'futureOf_with_environment.R' [2s]
  Running 'futureOf_with_listenv.R' [1s]
  Running 'futures.R' [28s]
  Running 'globals,NSE.R' [3s]
  Running 'globals,formulas.R' [4s]
  Running 'globals,manual.R' [4s]
  Running 'globals,resolve.R' [2s]
  Running 'globals,subassignment.R' [4s]
  Running 'globals,toolarge.R' [3s]
  Running 'globals,tricky.R' [7s]
  Running 'globals,tricky_recursive.R' [3s]
  Running 'globalsOf,tweaks.R' [1s]
  Running 'invalid-owner.R' [3s]
  Running 'makeClusterPSOCK.R' [2s]
  Running 'mandelbrot.R' [1s]
  Running 'multicore.R' [1s]
  Running 'multiprocess.R' [3s]
  Running 'multisession.R' [16s]
  Running 'nbrOfWorkers.R' [7s]
  Running 'nested_futures,mc.cores.R' [18s]
  Running 'nested_futures.R' [5s]
  Running 'non-exportable,connections.R' [2s]
  Running 'objectSize.R' [1s]
  Running 'plan.R' [16s]
  Running 'remote.R' [2s]
  Running 'requestCore.R' [3s]
  Running 'requestNode.R' [4s]
  Running 'resolve.R' [34s]
  Running 'rng.R' [8s]
  Running 'sequential.R' [1s]
  Running 'sessionDetails.R' [1s]
  Running 'startup.R' [3s]
  Running 'stdout.R' [2s]
  Running 'transparent.R' [1s]
  Running 'tweak.R' [1s]
  Running 'utils.R' [2s]
  Running 'uuid.R' [1s]
  Running 'whichIndex.R' [1s]
Running the tests in 'tests/remote.R' failed.
Complete output:
  > source("incl/start.R")
  plan(): nbrOfWorkers() = 1
  > library("listenv")
  > 
  > message("*** remote() ...")
  *** remote() ...
  > 
  > ## No global variables
  > f <- try(remote({
  +   42L
  + }, workers = "localhost"), silent = FALSE)
  Workers: [n = 1] 'localhost'
  Base port: 11316
  Creating node 1 of 1 ...
  - setting up node
  Starting worker #1 on 'localhost': "D:/RCompile/recent/R-35~1.1/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "parallel:::.slaveRSOCK()" MASTER=127.0.0.1 PORT=11316 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  Waiting for worker #1 on 'localhost' to connect back
  Connection with worker #1 on 'localhost' established
  - assigning connection UUID
  - collecting session information
  Creating node 1 of 1 ... done
  getGlobalsAndPackages() ...
  Searching for globals ...
  - globals found: [1] '{'
  Searching for globals ... DONE
  Resolving globals: FALSE
  
  
  getGlobalsAndPackages() ... DONE
  Packages needed by future strategies (n = 0): <none>
  Packages needed by the future expression (n = 0): <none>
  {
      {
          ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
              future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
              future.globals.method = NULL, future.globals.onMissing = NULL, 
              future.globals.onReference = NULL, future.globals.resolve = NULL, 
              future.resolve.recursive = NULL, width = 80L)
          {
              {
                  has_future <- requireNamespace("future", quietly = TRUE)
                  version <- if (has_future) 
                    packageVersion("future")
                  else NULL
                  if (!has_future || version < "1.8.0") {
                    info <- c(r_version = gsub("R version ", "", 
                      R.version$version.string), platform = sprintf("%s (%s-bit)", 
                      R.version$platform, 8 * .Machine$sizeof.pointer), 
                      os = paste(Sys.info()[c("sysname", "release", 
                        "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
                    info <- sprintf("%s: %s", names(info), info)
                    info <- paste(info, collapse = "; ")
                    if (!has_future) {
                      msg <- sprintf("Package 'future' is not installed on worker (%s)", 
                        info)
                    }
                    else {
                      msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
                        info, version)
                    }
                    stop(msg)
                  }
              }
              future::plan("default", .cleanup = FALSE, .init = FALSE)
          }
      }
      if (is.na(TRUE)) {
      }
      else {
          if (TRUE) {
              ...future.stdout <- rawConnection(raw(0L), open = "w")
          }
          else {
              ...future.stdout <- file(switch(.Platform$OS.type, 
                  windows = "NUL", "/dev/null"), open = "w")
          }
          sink(...future.stdout, type = "output", split = FALSE)
          on.exit(if (!is.null(...future.stdout)) {
              sink(type = "output", split = FALSE)
              close(...future.stdout)
          }, add = TRUE)
      }
      ...future.result <- tryCatch({
          ...future.value <- {
              42L
          }
          future::FutureResult(value = ...future.value, version = "1.8")
      }, error = function(cond) {
          calls <- sys.calls()
          structure(list(value = NULL, value2 = NA, condition = cond, 
              calls = calls, version = "1.8"), class = "FutureResult")
      }, finally = {
          {
              {
                  NULL
                  future::plan(list(function (expr, envir = parent.frame(), 
                    substitute = TRUE, lazy = FALSE, seed = NULL, 
                    globals = TRUE, local = TRUE, earlySignal = FALSE, 
                    label = NULL, ...) 
                  {
                    if (substitute) 
                      expr <- substitute(expr)
                    local <- as.logical(local)
                    future <- SequentialFuture(expr = expr, envir = envir, 
                      substitute = FALSE, lazy = lazy, seed = seed, 
                      globals = globals, local = local, earlySignal = earlySignal, 
                      label = label, ...)
                    if (!future$lazy) 
                      future <- run(future)
                    invisible(future)
                  }), .cleanup = FALSE, .init = FALSE)
              }
              options(...future.oldOptions)
          }
      })
      if (is.na(TRUE)) {
      }
      else {
          sink(type = "output", split = FALSE)
          if (TRUE) {
              ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
          }
          else {
              ...future.result["stdout"] <- list(NULL)
          }
          close(...future.stdout)
          ...future.stdout <- NULL
      }
      ...future.result
  }
  ClusterFuture started
  > print(f)
  ClusterFuture:
  Label: '<none>'
  Expression:
  {
      42L
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: FALSE
  Environment: <environment: R_GlobalEnv>
  Capture standard output: TRUE
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none>
  Resolved: TRUE
  Value: <not collected>
  Condition: <not collected>
  Early signalling: FALSE
  Owner process: 41f62ee9-e84d-06ab-43d0-77a07a1e5034
  Class: 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  > stopifnot(inherits(f, "ClusterFuture"))
  > 
  > print(resolved(f))
  [1] TRUE
  > y <- value(f)
  > print(y)
  [1] 42
  > stopifnot(y == 42L)
  > 
  > 
  > plan(remote, workers = "localhost")
  plan(): plan_init() of 'tweaked', 'remote', 'cluster', 'multiprocess', 'future', 'function' ...
  remote:
  - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = TRUE, workers = "localhost", user = NULL, revtunnel = TRUE, gc = FALSE, earlySignal = FALSE, myip = NULL, label = NULL, ...)
  - tweaked: TRUE
  - call: plan(remote, workers = "localhost")
  Workers: [n = 1] 'localhost'
  Base port: 11450
  Creating node 1 of 1 ...
  - setting up node
  Starting worker #1 on 'localhost': "D:/RCompile/recent/R-35~1.1/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "parallel:::.slaveRSOCK()" MASTER=127.0.0.1 PORT=11450 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  Waiting for worker #1 on 'localhost' to connect back
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 11450 cannot be opened
  Error in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  : 
    cannot open the connection
  Calls: plan ... makeClusterPSOCK -> makeNode -> <Anonymous> -> socketConnection
  Execution halted