在R中重命名序列号中的多个文件

Question

我正在尝试重命名放在一个文件夹中的文件，我需要这些文件以顺序方式重命名它们。例如，如果我有三个名称为

的文件

一个。 Mastersheet.xlsx

湾Subfile.xlsx

℃。 Analysis.xlsx

并将其重命名为

一个。 1.xlsx

湾2.xlsx

℃。 3.xlsx

files <- list.files(folder,pattern = "*.xlsx",full.names = T) 

sapply(files,FUN=function(eachPath){file.rename(from=eachPath,to=sub(pattern="*.xlsx",paste0("*.xlsx",1:34),eachPath))})

Answer 1

不是迭代文件的名称，而是迭代它们的索引，以便删除1:34魔法值。

files <- list.files(pattern = "*.xlsx")
sapply(seq_along(files),function(x){file.rename(files[x],paste0(x,".xlsx"))})