Try to fix occational setident issue before merge with try

r.scripts/sc-TissueMapper_RUN.DS_D17.R

@@ -310,8 +310,12 @@ sc10x <- scMerge(sc10x,sc10x,sc10x.Epi.NE,i.1="Merge_Epi.dws.sc_St.dws.sc",i.2="
 
 sc10x.Epi <- scMerge(sc10x.Epi,sc10x.Epi,sc10x.Epi.NE,i.1="Epi.dws.sc",i.2="NE",nm="Epi.dws.sc_NE")
 
+tryCatch({
 sc10x <- SetAllIdent(object=sc10x,id="Merge_Epi.dws.sc_St.dws.sc")
+},error=function(e){cat("ERROR : ",conditionMessage(e),"/\n")})
+tryCatch({
 sc10x <- SetAllIdent(object=sc10x,id="Merge_Epi.dws.sc_St.dws.sc")
+},error=function(e){cat("ERROR : ",conditionMessage(e),"/\n")})
 sc10x@ident <- factor(sc10x@ident,levels=c("BE","LE","OE_SCGB","OE_KRT13","Fib","SM","Endo","Leu"))
 postscript("./analysis/tSNE/FINAL/tSNE_FINAL.eps")
 plot <- TSNEPlot(object=sc10x,pt.size=2.5,do.return=TRUE,vector.friendly=FALSE)