print scheduler we submit to

mschubert · Aug 7, 2024 · b8850ae · b8850ae
1 parent 9feec60
commit b8850ae
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/R/qsys_lsf.r b/R/qsys_lsf.r
@@ -21,7 +21,8 @@ LSF = R6::R6Class("LSF",
                                    required=c("master", "job_name", "n_jobs"))
 
             if (verbose)
-                message("Submitting ", n_jobs, " worker jobs (ID: ", private$job_id, ") ...")
+                message("Submitting ", n_jobs, " worker jobs to ", class(self)[1],
+						" (ID: ", private$job_id, ") ...")
 
             status = system("bsub", input=filled, ignore.stdout=TRUE)
             if (status != 0)

diff --git a/R/qsys_sge.r b/R/qsys_sge.r
@@ -21,7 +21,8 @@ SGE = R6::R6Class("SGE",
             filled = fill_template(private$template, opts, required=c("master", "n_jobs"))
 
             if (verbose)
-                message("Submitting ", n_jobs, " worker jobs (ID: ", private$job_name, ") ...")
+                message("Submitting ", n_jobs, " worker jobs to ", class(self)[1],
+						" (ID: ", private$job_id, ") ...")
 
             private$qsub_stdout = system2("qsub", input=filled, stdout=TRUE)
             status = attr(private$qsub_stdout, "status")

diff --git a/R/qsys_slurm.r b/R/qsys_slurm.r
@@ -21,7 +21,8 @@ SLURM = R6::R6Class("SLURM",
                                    required=c("master", "job_name", "n_jobs"))
 
             if (verbose)
-                message("Submitting ", n_jobs, " worker jobs (ID: ", private$job_id, ") ...")
+                message("Submitting ", n_jobs, " worker jobs to ", class(self)[1],
+						" (ID: ", private$job_id, ") ...")
 
             status = system("sbatch", input=filled, ignore.stdout=TRUE)
             if (status != 0)