# Waiting is only available if there are Slurm clusters
if (slurm_available()) {
job <- Slurm_EvalQ(Sys.sleep(1000), plan = "submit", njobs = 2)
wait_slurm(job, timeout = 1) # This will return a warning
scancel(job)
Slurm_clean(job)
}
Run the code above in your browser using DataLab