在 R 循环中命名文件

我有多个音频文件，它们保存在我的工作目录中的几个子文件夹中。我有一个循环，它读取每个文件的第一分钟，然后将它们保存为新文件。

library(tuneR)

dir.create("New files")

FILES<-list.files(PATH, pattern = "audio", recursive = TRUE)

for(i in 1:length(FILES)){
  OneMIN <- readWave(FILES[i], from = 0, to = 60, units = "seconds")
  writeWave(OneMIN, filename = (file=paste0(FILES[i], "_1-min.wav")))
}

现在，这有几个问题；

1）新文件名为例如“File1.wav_1-min.wav”，所以我需要将它们重命名为“File_1-min.wav”

2）新文件位于多个子文件夹中，然后我必须使用循环外的附加步骤将它们复制到“新文件”文件夹中。

我有解决这些问题的解决方法，但我确信有一种更优雅的方法可以做到这一点，即在循环中包含额外的行。我想：

1) 去掉文件名中的第一个“.wav”

2）自动将它们保存到“新文件”文件夹中

但是，我不知道如何去做。任何建议表示赞赏。谢谢。

The file.path()函数可用于将目录和文件名组合成单个文件路径，而sub()函数将允许您轻松修改文件名：

library(tuneR)

dir.create("New files")

FILES <- list.files(PATH, pattern = "audio", recursive = TRUE)

for(infile in FILES){
  OneMIN <- readWave(infile, from = 0, to = 60, units = "seconds")
  outfile <- file.path("New files", sub('.wav', '_1-min.wav', infile))
  writeWave(OneMIN, filename=outfile)
}

另外，值得注意的是，在原始代码示例中，list.files()函数将仅返回每个文件路径的文件名部分。

因此，您可能需要修改代码，使其看起来像：

FILES <- list.files(PATH, pattern = "audio", recursive = TRUE, full.names=TRUE)

and:

outfile <- file.path("New files", sub('.wav', '_1-min.wav', basename(infile)))

这将确保双方infile and outfile都指向正确的位置。