Как преобразовать много файлов mp3 в формат wav в R

У меня есть много 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)

Спасибо за любую помощь или предложение?

[JS за 1 час] - 9. Асинхронный
[JS за 1 час] - 9. Асинхронный
JavaScript является однопоточным, то есть он может обрабатывать только одну задачу за раз. Для обработки длительных задач, таких как сетевые запросы,...
Топ-10 компаний-разработчиков PHP
Топ-10 компаний-разработчиков PHP
Если вы ищете надежных разработчиков PHP рядом с вами, вот список лучших компаний по разработке PHP.
Скраппинг поиска Apple App Store с помощью Python
Скраппинг поиска Apple App Store с помощью Python
📌Примечание: В этой статье я покажу вам, как скрапировать поиск Apple App Store и получить точно такой же результат, как на Apple iMac, потому что...
Редкие достижения на Github ✨
Редкие достижения на Github ✨
Редкая коллекция доступна в профиле на GitHub ✨
Подъем в javascript
Подъем в javascript
Hoisting - это поведение в JavaScript, при котором переменные и объявления функций автоматически "перемещаются" в верхнюю часть соответствующих...
Улучшение генерации файлов Angular
Улучшение генерации файлов Angular
Angular - это фреймворк. Вы можете создать практически любое приложение без использования сторонних библиотек.
1
0
55
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Предполагая, что все файлы находятся в вашем текущем рабочем каталоге,

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)
}

Другие вопросы по теме