install.packages("Seurat")
library(Seurat)
fs=list.files('./','^GSM')
library(stringr)
samples=str_split(fs,'',simplify = T)[,1]
lapply(unique(samples),function(x){
y=fs[grepl(x,fs)]
folder=paste(str_split(y[1],'',simplify = T)[,2:3],collapse = '')
dir.create(folder,recursive = T)
file.rename(y[1],file.path(folder,"barcodes.tsv.gz"))
file.rename(y[2],file.path(folder,"genes.tsv.gz"))
file.rename(y[3],file.path(folder,"matrix.mtx.gz"))
})
samples=str_split(fs,'',simplify = T)[,1]