Generalised to Idents

CodingKaiser · CodingKaiser · commit 7e6b6dd7d493 · 2024-06-13T14:05:47.000+02:00
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)) {

Original file line number	Diff line number	Diff line change
`@@ -135,7 +135,7 @@ ezMethodScSeuratCombine = function(input=NA, output=NA, param=NA, htmlFile="00in`
`135`	`135`	`dplyr::filter(Sample == sm)`
`136`	`136`	`labelMap <- as.character(clusterAnno$ClusterLabel)`
`137`	`137`	`names(labelMap) <- as.character(clusterAnno$Cluster)`
`138`		`- scData$stacasLabelColumn <- unname(labelMap[as.character(scData$seurat_clusters)])`
	`138`	`+ scData$stacasLabelColumn <- unname(labelMap[as.character(Idents(scData))])`
`139`	`139`	`}`
`140`	`140`	`# Also add the other factors in the input dataset to the objects`
`141`	`141`	`if (ezIsSpecified(param$additionalFactors)) {`