Generalised to Idents

uzh · Jun 13, 2024 · 7e6b6dd · 7e6b6dd
1 parent 89a39c4
commit 7e6b6dd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)) {