# Renomear múltiplos arquivos no R mantendo parte do nome original
# Autor Mateus S. Figueiredo
# Última modificação: 2023-01-28
# ------------------------------------------------------------------------------
# Definir pasta de trabalho
setwd ("C:/Users/Mateus/Desktop/BH")
# getwd() #C onferir pasta de trabalho
# Pegar nomes originais das fotos
orig <- list.files(recursive = T, pattern = "JPG$", ignore.case = T)
# recursive = T faz pegar pastas e subpastas
# pattern = JPG$ faz pegar arquivos terminados em JPG
# ignore.case = T faz ignorar maiúsculas e minúsculas
orig # conferir vetor com nomes originais
# O vetor orig é formado pelo nome original dos arquivos das fotos.
# Caso haja subpastas, o nome da subpasta fará parte do nome do arquivo.
# ------------------------------------------------------------------------------
# Criar vetor novo, para o novo nome das fotos, fazendo substituições desejadas.
# Adaptar conforme sua necessidade
sub("/IMG_"," (",orig) -> novo # remove IMG_ dos nomes, adiciona (
sub("JPG","jpg",novo) -> novo # padroniza para minúsculas
sub("HDR.","HDR",novo) -> novo # remove ponto desnecessário após HDR
sub(".jpg",").jpg",novo) -> novo # adiciona ) ao final do nome
novo # confere lista de nomes
# ------------------------------------------------------------------------------
# Renomear os arquivos
# ?file.rename
file.rename (orig, novo) # Substitui nome orig pelo nome novo
# ------------------------------------------------------------------------------
# Recomendações:
# Fazer backup dos arquivos antes de renomear.
# Preferir caminho curto de arquivo (ex. colocar pasta na Área de Trabalho
# é melhor do que colocar dentro de inúmeras pastas)
# Separar fotos em pastas antes de rodar o código, de acordo com o tema da foto.
# Assim, o nome novo de cada foto terá o nome da pasta.
# ------------------------------------------------------------------------------
# Fim do código
