У меня есть много mp3-файлов в одной папке, как я могу конвертировать все mp3-файлы в формат wav за один раз с помощью программирования R?
Следующий код работает для меня, чтобы преобразовать один mp3 в формат wav, но как я могу преобразовать каждый mp3-файл в папке в формат wav?
r <- readMP3("D:\\5366374684\\0297B65BR095V53DIHAKG2LAES00H7AT\\0297B65BR095V53DIHAKG2LAES00H7AT_2022-09-26_23-19-01_0.mp3")
writeWave(r,"D:\\tmp.wav",extensible=FALSE)
Спасибо за любую помощь или предложение?
Предполагая, что все файлы находятся в вашем текущем рабочем каталоге,
library(monitoR)
mp_list <-list.files(pattern = ".mp3")
wav_list <- stringr::str_replace_all(mp_list, ".mp3", ".wav")
i_list <- seq(length(mp_list))
for(i in i_list) {
r <- readMP3(filename = mp_list[i])
writeWave(r, wav_list[i], extensible=FALSE)
}