Make sure sample names get set if loading from premade seurat objects

r.scripts/sc-TissueMapper_functions.R

@@ -75,6 +75,7 @@ scLoad <- function(p,cellranger=3,aggr=TRUE,ncell=0,nfeat=0,seurat=FALSE){
     for (i in sc10x.groups$Samples){
       sc10x[i] <- readRDS(paste0("./analysis/DATA/10x/",i,"/",i,".rds"))
       sc10x[[i]] <- sc10x[[i]]
+      sc10x[[i]]$samples <- i
     }
   }