Commit e2689018 authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

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

parent bb5be9b8
...@@ -75,6 +75,7 @@ scLoad <- function(p,cellranger=3,aggr=TRUE,ncell=0,nfeat=0,seurat=FALSE){ ...@@ -75,6 +75,7 @@ scLoad <- function(p,cellranger=3,aggr=TRUE,ncell=0,nfeat=0,seurat=FALSE){
for (i in sc10x.groups$Samples){ for (i in sc10x.groups$Samples){
sc10x[i] <- readRDS(paste0("./analysis/DATA/10x/",i,"/",i,".rds")) sc10x[i] <- readRDS(paste0("./analysis/DATA/10x/",i,"/",i,".rds"))
sc10x[[i]] <- sc10x[[i]] sc10x[[i]] <- sc10x[[i]]
sc10x[[i]]$samples <- i
} }
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment