Add commands to save data to function based pipeline

r.scripts/sc-TissueMapper_RUN.D17.R

@@ -333,4 +333,8 @@ for (i in ls(pattern="^genes.deg.*.unique")){
 
 for (i in ls(pattern="^genes.deg.")){
   write.table(get(i),file=paste0("./analysis/deg/",i,".csv"),row.names=TRUE,col.names=NA,append=FALSE,sep=",")
-}
\ No newline at end of file
+}
+
+save(list=ls(pattern="^sc10x"),file="./analysis/sc10x.Rda")
+rm(ls(pattern="^sc10x"))
+save.image(file="./analysis/Data.RData")
\ No newline at end of file