Fix dehash display

r.scripts/sc-TissueMapper_functions.R

@@ -664,7 +664,7 @@ scCluster <- function(sc10x,res=0.1,red="pca",dim,print="tsne",folder=FALSE){
       dev.off()
     }}
   
-  for (i in c("samples","HTO_maxID","hashID")[c("samples","HTO_maxID","hash.ID") %in% colnames(sc10x@meta.data)]){
+  for (i in c("samples","HTO_maxID","hash.ID")[c("samples","HTO_maxID","hash.ID") %in% colnames(sc10x@meta.data)]){
     plot1 <- DimPlot(sc10x,reduction="pca",group.by=i)
     plot2 <- DimPlot(sc10x,reduction="tsne",group.by=i)
     plot3 <- DimPlot(sc10x,reduction="umap",group.by=i)