在R中重命名创建日期为的PDF文件

我是R的新手。我试图从不同的文件夹中读取pdf列表，并用创建日期重命名它们，但我做不到

files <- list.files(pattern = "pdf$", recursive = TRUE)
length(files)

creation_date <- file.info(files)$ctime

sapply(files, FUN = function(eachPath){

file.rename(from=eachPath, to=sub(pattern = "archivo", replacement = "(c(file.info(files)$ctime), eachPath))
})

提前感谢,

---

关于

有几种方法可以改进脚本。首先，我将显式设置要查看的路径，并使用选项full.names=TRUE获取完整路径：

files <- list.files("C:/Users/Johannes Gruber/Desktop/test",
                    pattern = "pdf$", 
                    recursive = TRUE,
                    full.names = TRUE)

file.rename实际上是完全矢量化的，因此不需要循环。这将一次处理多个文件，在我的经验中速度非常快：

file.rename(from = files, to = new_names)

file.rename(from = files, to = new_names)