From 0a5e6878d4d0f5cd72b7abdd9d1aa92f8fda0b54 Mon Sep 17 00:00:00 2001
From: "Gervaise H. Henry" <gervaise.henry@utsouthwestern.edu>
Date: Fri, 28 Sep 2018 14:16:09 -0500
Subject: [PATCH] Fix lin subset if unknown present

---
 r.scripts/sc-TissueMapper_RUN.Pd.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/r.scripts/sc-TissueMapper_RUN.Pd.R b/r.scripts/sc-TissueMapper_RUN.Pd.R
index 63b7f51..2b76a12 100644
--- a/r.scripts/sc-TissueMapper_RUN.Pd.R
+++ b/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"))
-- 
GitLab