NÃO FUNCIONA: Renomear múltiplos arquivos no R mantendo parte do nome original

AVISO: Post mantido por motivos históricos. Código não funciona. 

A versão atualizada correta se encontra em https://essecedilha.blogspot.com/2023/01/renomear-multiplos-arquivos-no-r.html

-------------------------------------------------------------------------------------------------------------------------

Eu tiro muitas fotos quando viajo, e gosto de enviar elas para a Wikimedia Commons. Só que para isso, eu preciso colocar nomes adequados nos arquivos. Eu não posso enviar um monte de arquivos "IMG_6437.JPG" "IMG_6442.JPG" "IMG_6470.JPG" "IMG_6471.JPG" "IMG_6477.JPG", então preciso renomear eles.

Eu gosto de manter o número original das fotos para ficar mais fácil quando eu precisar achar o arquivo original. Meu objetivo, então é transformar esses arquivos em algo como "Planta no parque (6437).JPG", por exemplo. Se são poucos arquivos, é fácil fazer isso manualmente, mas fazer isso em dezenas de fotos seria exaustivo. Felizmente, é fácil fazer isso no R.

Meu objetivo, então, é transformar os arquivos de

"IMG_6437.JPG"
"IMG_6442.JPG"
"IMG_6470.JPG"
"IMG_6471.JPG"
"IMG_6477.JPG"

 para

"Passeio em Jasper 2019 (6437).JPG"
"Passeio em Jasper 2019 (6442).JPG"
"Passeio em Jasper 2019 (6470).JPG"
"Passeio em Jasper 2019 (6471).JPG"
"Passeio em Jasper 2019 (6477).JPG"

por exemplo.

Meu objetivo, então, é substituir o trecho "IMG_" por "Passeio em Jasper 2019 (" e ".JPG" por ").JPG" em todos os arquivos da pasta "Jasper".

#Código:

setwd ("C:/Users/Mateus/Jasper") #Definir pasta de trabalho
#getwd() #Conferir pasta de trabalho

#Pegar nomes originais das fotos

#?list.files
orig<-list .files="" br="" omes="" originais="" pattern="*.JPG">#orig

 O vetor orig é formado pelo nome original dos arquivos das fotos, que seguem o padrão "*.JPG".

#Definir começo e final dos nomes de arquivo desejados

comeco<- 2019="" asseio="" br="" come="" em="" jasper="" o="">final<- br="">

Define-se o comeco e o final do nome desejado dos arquivos.

nomes1<-gsub as.character="" br="" comeco="" orig="">nomes2<-gsub br="" nomes1="">

O vetor nomes1 pega o vetor orig, apaga tudo que vem antes do underline, e substitui pelo que estiver em  comeco. 
O vetor nomes2 pega o vetor nomes1 e remove a parcela ".JPG".

#Criar nomes desejados dos arquivos

novo<-paste br="" corretos="" e="" final="" nomes2="" novos="" omes="" sep="">

Cria-se o vetor novo combinando  os vetores nomes2, que tem o começo dos arquivos, e final, que tem o final dos arquivos.

#orig #conferir
#novo #conferir
#rm(comeco) #remover dados desnecessários

Agora só é preciso renomear os arquivos.

#Renomear os arquivos

?file.rename
file.rename (orig, novo)

A função file.rename pega os arquivos com nome orig e substitui pelos nomes em novo. Assim, orig[1] vira novo[1], e assim em diante. Os arquivos finais todos seguem o padrão

"Passeio em Jasper 2019 (6437).JPG".

Para outros formatos finais, como por exemplo "Passeio em Banff (7748).JPG", basta alterar os valores de comeco e final.