多个h5文件整理到一个文件夹下面，不改变名字

多个h5文件整理到一个文件夹下面，不改变名字

library(stringr)

getwd()
path="G:/silicosis/geo/GSE122960_ScRNA_ of Human Lung  During Pulmonary Fibrosis II/GSE122960_RAW"
setwd(path)

path2="G:/silicosis/geo/GSE122960_ScRNA_ of Human Lung  During Pulmonary Fibrosis II/GSE122960_RAW/filter_.h5"
dir.create(path2)

fs=list.files(pattern = "h5.h5")
str_split(fs,"filtered_gene",simplify = T)

getwd()
fs=list.files(full.names = TRUE,pattern = "h5.h5")
samplenames=grep(pattern = "filtered_gene",fs,value = TRUE)

folder="G:/silicosis/geo/GSE122960_ScRNA_ of Human Lung  During Pulmonary Fibrosis II/GSE122960_RAW/"
for (eachsample in samplenames) {
  #重命名文件，并移动到相应的子文件夹里
  #eachsample="GSM3489198_SSc-ILD_02_filtered_gene_bc_matrices_h5.h5"
  file.rename((paste0(folder,eachsample)),file.path(paste0(folder,"filter_.h5"),eachsample))
  
}