Merge pull request #24 from A2-ai/add_job_name

Add job name
A2-ai · Nov 26, 2024 · 5605120 · 5605120
2 parents 1b11c17 + d0a0d97
commit 5605120
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: slurmtools
 Title: slurm tooling 
-Version: 0.0.0.9004
+Version: 0.0.0.9005
 Authors@R: c(person("Devin", "Pastoor", , "[email protected]", role = c("aut", "cre")),
     person("Jenna", "Elwing", email = "[email protected]", role = "aut"),
     person("Matthew", "Smith", email = "[email protected]", role = "aut"))

diff --git a/R/get-jobs.R b/R/get-jobs.R
@@ -31,6 +31,7 @@ parse_job_to_row <- function(job) {
   tibble::tibble(
     job_id = job$job_id,
     job_state = job_state,
+    job_name = job$name,
     cpus = job$cpus$number,
     partition = job$partition,
     standard_input = job$standard_input,
@@ -55,6 +56,7 @@ parse_jobs_json <- function(.json) {
     empty <- tibble::tibble(
       job_id = "",
       job_state = "",
+      job_name = "",
       cpus = "",
       partition = "",
       standard_input = "",
@@ -105,7 +107,7 @@ get_slurm_jobs <- function(user = NULL){
     )
 
   res_df <- res_df %>%
-    dplyr::select("job_id", "partition", "user_name", "job_state", "time", dplyr::everything())
+    dplyr::select("job_id", "partition", "job_name", "user_name", "job_state", "time", "cpus", dplyr::everything())
 
   if (!is.null(user)) {
     df <- tryCatch(