Fix cca hvg intersect

r.scripts/sc-TissueMapper.R

@@ -1097,9 +1097,9 @@ sc3CCA <-  function(sc10x.1,sc10x.2,sc10x.3,nm.1="D17",nm.2="D27",nm.3="D35",cc=
   genes.hvg.2 <- sc10x.2@var.genes
   genes.hvg.3 <- sc10x.3@var.genes
   genes.hvg.Comb <- unique(c(genes.hvg.1,genes.hvg.2,genes.hvg.3))
-  genes.hvg.Comb <- intersect(genes.hvg.Comb,rownames(sc10x.1@scale.data))
-  genes.hvg.Comb <- intersect(genes.hvg.Comb,rownames(sc10x.2@scale.data))
-  genes.hvg.Comb <- intersect(genes.hvg.Comb,rownames(sc10x.3@scale.data))
+  genes.hvg.Comb <- intersect(genes.hvg.Comb,rownames(sc10x.1@data))
+  genes.hvg.Comb <- intersect(genes.hvg.Comb,rownames(sc10x.2@data))
+  genes.hvg.Comb <- intersect(genes.hvg.Comb,rownames(sc10x.3@data))
   
   sc10x.1@meta.data$patient <- nm.1
   sc10x.2@meta.data$patient <- nm.2