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

e2689018 · Gervaise Henry · bb5be9b8 · e2689018
Commit e2689018 authored Nov 11, 2020 by Gervaise Henry 🤠
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

r.scripts/sc-TissueMapper_functions.R r.scripts/sc-TissueMapper_functions.R +1 -0

No files found.
--- a/r.scripts/sc-TissueMapper_functions.R
+++ b/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
    }
  }