From 145100ad85c0a5d49fc9db958438e033815680a8 Mon Sep 17 00:00:00 2001 From: "stuartrussell@nantwichfarmvets.co.uk" Date: Sat, 24 Jul 2021 07:18:53 +0100 Subject: [PATCH] Mapped missing Slurm job state codes --- R/clusterFunctionsSlurm.R | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/R/clusterFunctionsSlurm.R b/R/clusterFunctionsSlurm.R index 363bf35a..6a75d47a 100644 --- a/R/clusterFunctionsSlurm.R +++ b/R/clusterFunctionsSlurm.R @@ -90,16 +90,26 @@ makeClusterFunctionsSlurm = function(template = "slurm", array.jobs = TRUE, node if (length(clusters)) tail(res$output, -1L) else res$output } + + # Full List of Slurm job state codes: + # https://slurm.schedmd.com/squeue.html + # BF,CA,CD,CF,CG,DL,F,NF,OOM,PD,PR,R,RD,RF,RH,RS,RV,SI,SE,SO,ST,S,TO + + listJobsQueued = function(reg) { - args = c(quote("--user=$USER"), "--states=PD") + args = c(quote("--user=$USER"), "--states=PD,CF,RD,RF,RH,RQ,SE") listJobs(reg, args) } listJobsRunning = function(reg) { - args = c(quote("--user=$USER"), "--states=R,S,CG") + args = c(quote("--user=$USER"), "--states=R,S,CG,RS,SI,SO,ST") listJobs(reg, args) } + # Slurm job state codes that will result in an expired status: + # BF,CA,CD,DL,F,NF,OOM,PR,RV,TO + + killJob = function(reg, batch.id) { assertRegistry(reg, writeable = TRUE) assertString(batch.id)