Fix lin subset if unknown present

r.scripts/sc-TissueMapper_RUN.Pd.R

@@ -186,6 +186,7 @@ results.clust.Lin.id <- results[[3]]
 rm(results)
 rm(gene.set)
 
+sc10x <- SetAllIdent(object=sc10x,id="Lin")
 sc10x.Epi <- scSubset(sc10x,i="Lin",g="Epi")
 if (any(levels(sc10x@ident)=="Unknown")){
   sc10x.St <- scSubset(sc10x,i="Lin",g=c("St","Unknown"))