Renaming Multiple Files in a Folder: Counting Up from 001 to xxx Using file.rename() in R