Make pthe 'partition' column contain the full set of factor levels

LieberInstitute · Oct 13, 2023 · 15ef846 · 15ef846
1 parent e51e88b
commit 15ef846
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/job_info.R b/R/job_info.R
@@ -32,7 +32,8 @@ job_info <- function(user = Sys.getenv("USER"), partition = "shared") {
         ),
         sep = "|"
     ) |>
-        as_tibble()
+        as_tibble() |>
+        mutate(PARTITION = factor(PARTITION))
 
     #   Filter to the requested user and partition. Passing NULL values to
     #   those variables signals to not subset/ filter.

diff --git a/R/partition_info.R b/R/partition_info.R
@@ -45,7 +45,8 @@ partition_info <- function(partition = "shared", all_nodes = FALSE) {
     )
 
     part_df <- read.csv(text = system(command, intern = TRUE), sep = "|") |>
-        as_tibble()
+        as_tibble() |>
+        mutate(PARTITION = factor(PARTITION))
 
     #   Subset by partition if not null
     if (!is.null(partition)) {