Handle subsets if not all idents present

r.scripts/sc-TissueMapper_ID.R

@@ -123,10 +123,10 @@ sc10x$lung <- labs.raw
 
 Idents(sc10x) <- "lin"
 sc10x.epi <- subset(sc10x, idents="Epithelia")
-sc10x.fmst <- subset(sc10x, idents=c("Fibroblast","Smooth Muscle"))
+sc10x.fmst <- subset(sc10x, idents=colnames(sc10x@meta.data) %in% c("Fibroblast","Smooth Muscle"))
 sc10x.fib <- subset(sc10x, idents="Fibroblast")
 sc10x.sm <- subset(sc10x, idents="Smooth Muscle")
-sc10x.leu <- subset(sc10x, idents=c("Lymphoid", "Myeloid", "Granulocyte"))
+sc10x.leu <- subset(sc10x, idents=colnames(sc10x@meta.data) %in% c("Lymphoid", "Myeloid", "Granulocyte"))
 
 res <- c(seq(0.1,0.5,0.1),0.75,seq(1,5,1))