#45

SydneyBioX · Aug 19, 2024 · 428eb1c · 428eb1c
1 parent b95fc43
commit 428eb1c
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -106,6 +106,19 @@ isKonditional <- function(konditionalResult) {
             ) %>%
             dplyr::ungroup()
     }
+
+    # Check if imageID is a factor, if not make it as factor whilst keeping order
+    if(class(cells$imageID) != "factor") {
+      cells <- cells %>%
+        dplyr::mutate(imageID = factor(imageID, levels = unique(imageID)))
+    }
+
+    # Check if imageID is a factor, if not make it as factor whilst keeping order
+    if(class(cells$cellType) != "factor") {
+      cells <- cells %>%
+        dplyr::mutate(cellType = factor(cellType, levels = unique(cellType)))
+    }
+
     cells
 }