## Not run:
# trace(system, tracer = quote(stop("Command: ", command)), print = FALSE)
#
# ## Without tweaks
# try(cl <- parallel::makeCluster("remote.myserver.org", revtunnel=TRUE,
# master="localhost", homogeneous=FALSE))
# ### Error in eval(expr, envir, enclos) :
# ### Command:
# ### ssh
# ### -l hb
# ### remote.myserver.org
# ### "Rscript
# ### --default-packages=datasets,utils,grDevices,graphics,stats,methods
# ### -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11099
# ### OUT=/dev/null TIMEOUT=2592000 XDR=TRUE"
#
# ## With tweaks
# future:::tweak_parallel_PSOCK()
# try(cl <- parallel::makeCluster("remote.myserver.org", revtunnel=TRUE,
# master="localhost", homogeneous=FALSE))
# ### Error in eval(expr, envir, enclos) :
# ### Command:
# ### ssh
# ### -R 11624:localhost:11624
# ### remote.myserver.org
# ### "Rscript
# ### --default-packages=datasets,utils,grDevices,graphics,stats,methods
# ### -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11099
# ### OUT=/dev/null TIMEOUT=2592000 XDR=TRUE"
#
# ## Undo tweaks
# untrace(system)
# future:::tweak_parallel_PSOCK(reset=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab