シリアル番号で複数のファイル名を変更R

Question

1つのフォルダにあるファイルの名前を変更しようとしていますが、このファイルを名前順に並べ替える必要があります。たとえば、名前が3つのファイルがある場合

a。 Mastersheet.xlsx

b。 Subfile.xlsx

c。 Analysis.xlsx

aに名前を変更します。 1.xlsx

b。 2.xlsx

c。 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"))})