Question

我需要帮助使用新名称列表重命名目录中的文件，我已经尝试了一些已在此处发布的建议，但它们不起作用.-（。文件的模式是： FRAGMSAUERGUERTH279_X_A01_015.fsa 直到X它是一个常数字符，并且我想为我已经在文件中上传的特定名称更改它们。
这是我的剧本：

plate1<-(plate.1.anser) # new names in plate1    
dir1<-('D:/Doctorado/Anseriformes/Multiplex PCR anser/Micro geese 2015/fragmsauerguerth279/fragmsauerguerth279') # where my files are
filez<-list.files(dir1,pattern="*.fsa")
head(filez)     
apply(filez,FUN=function(eachPath){
  file.rename(from=eachPath,to=sub(pattern="*.fsa",replacement=plate1,eachPath))  #replacement=plate1[1,]:plate1[96,]    
})

Answer 1

我找到了一个解决方案.-）：

 plate1<-as.vector(plate.1.anser)
 dir1<-("D://Doctorado//Anseriformes//Multiplex PCR anser//Micro geese 2015//fragmsauerguerth279//fragmsauerguerth279//")
 a <- list.files(dir1, pattern="*.fsa")  
 b <- paste(plate1[1:96,], ".fsa", sep = "") # 96 files in directory
 file.rename(from=file.path(dir1,a), to=file.path(dir1,b))

如何使用新名称列表重命名文件

1 个答案: