Message-ID: <CA+8X3fWO756FjGyoAi9+fmx0+Qh+43PfXr54=JzFqAeqzShH=A@mail.gmail.com>
Date: 2017-09-28T22:22:28Z
From: Jim Lemon
Subject: rename multiple files by file.rename or other functions
In-Reply-To: <CAJuCY5zdDkrgTEm1hhm8sHcyFZ0jWpkZhZ5NmOg2uHRhu4Bwow@mail.gmail.com>
Hi John,
After a bit of thinking:
# fill in the appropriate path and pattern
filenames<-list.files(path=???,pattern=???)
for(filename in filenames) {
filefirst<-sapply(strsplit(filename,"[.]"),"[",1)
# delete all non-digits
fileno<-gsub("[^[:digit:]]","",filefirst)
file.rename(filename,paste("01Gen",fileno,".mp3",sep=""))
}
Jim