From 7e6b6dd7d49339c08080bf4f8c96dad47405f45f Mon Sep 17 00:00:00 2001
From: CodingKaiser <falkonoe@gmail.com>
Date: Thu, 13 Jun 2024 14:05:47 +0200
Subject: [PATCH] Generalised to Idents

---
 R/app-ScSeuratCombine.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/app-ScSeuratCombine.R b/R/app-ScSeuratCombine.R
index a335c70e..c09096f1 100644
--- a/R/app-ScSeuratCombine.R
+++ b/R/app-ScSeuratCombine.R
@@ -135,7 +135,7 @@ ezMethodScSeuratCombine = function(input=NA, output=NA, param=NA, htmlFile="00in
         dplyr::filter(Sample == sm)
       labelMap <- as.character(clusterAnno$ClusterLabel)
       names(labelMap) <- as.character(clusterAnno$Cluster)
-      scData$stacasLabelColumn <- unname(labelMap[as.character(scData$seurat_clusters)])
+      scData$stacasLabelColumn <- unname(labelMap[as.character(Idents(scData))])
     }
     # Also add the other factors in the input dataset to the objects
     if (ezIsSpecified(param$additionalFactors)) {