diff --git a/R/job_info.R b/R/job_info.R
index 075e751..e54f992 100644
--- 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
index 21b6d52..43eff29 100644
--- 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)) {