# NOT RUN {
# Initial configuration and execution
qsub_config <- create_qsub_config(
remote = "myserver",
local_tmp_path = "/home/myuser/workspace/.r2gridengine",
remote_tmp_path = "/scratch/myuser/.r2gridengine"
)
qsub_lapply(
X = seq_len(3),
FUN = function(i) { Sys.sleep(1); i+1 },
qsub_config = qsub_config
)
# Setting a default configuration and short hand notation for execution
set_default_qsub_config(qsub_config, permanent = T)
qsub_lapply(seq_len(3), function(i) { Sys.sleep(1); i+1 })
# Overriding a default qsub_config
qsub_lapply(seq_len(3), function(i) i + 1,
qsub_config = override_qsub_config(name = "MyJob"))
# Don't wait for results, get a handle instead and retrieve later.
handle <- qsub_lapply(seq_len(3), function(i) i + 1,
qsub_config = override_qsub_config(wait = F))
# Wait until results have been generated on the remote
# Retrieve results
qsub_retrieve(handle)
# }
Run the code above in your browser using DataLab