Переименование музыкальных файлов в R

Я пытаюсь переименовать ряд (179) файлов, имена которых следуют шаблону:

"104-jacques_brel-le_diable_(ca_va)-just.mp3 TEST"
...
"1517-jacques_brel-la_cathedrale-just.mp3 TEST" 

Стремление к выводу, похожему на:

"Le diable (ca va).mp3"
...
"La cathedrale.mp3"

Проблема в том, что я знаю только команду paste()... поэтому я мог бы успешно (и глупо) добавить TEST к имени, используя:

filenames <- list.files()
   filenames[180:181] 
   filenames <- filenames[-c(180:181)]

   files_4dgts<-filenames[c(1:14,21:30,35:80)]
   files_3dgts<-filenames[-c(1:14,21:30,35:80)]


   for (i in 1:length(files_3dgts))
   file.rename(files_3dgts[i],paste(files_3dgts[i],"TEST",sep=""))

   for (i in 1:length(files_4dgts))
   file.rename(files_4dgts[i],paste(files_4dgts[i],"TEST",sep=""))

Что, очевидно, не является решением моей проблемы.