Fix sc_LineageSubClust.R to handle if UK Lineage cluster is present

r.scripts/sc_LineageSubClust.R

@@ -47,6 +47,7 @@ if (!dir.exists(paste0("./analysis/",opt$g,"/global",sub.folder))){
 sc10x.Group <- SetAllIdent(object=sc10x.Group,id="Lineage")
 sc10x.Group.Epi <- SubsetData(object=sc10x.Group,ident.use="Epi")
 sc10x.Group.St <- SubsetData(object=sc10x.Group,ident.use="St")
+UK <- TRUE
 tryCatch({
   sc10x.Group.UK <- SubsetData(object=sc10x.Group,ident.use="?")
 },error=function(e){UK <<- FALSE})