每天重命名文件，使用当前日期作为文件名的一部分

Question

我有一个名为 BackupFile-08072018.cvs 的文件，其中 06072018 代表昨天的日期。每天早上我都想运行我的日常代码，最后我的文件的输出名称应该使用今天的日期：BackupFile-09072018.cvs。我该如何编码？

output_wb <- paste(output_dir,"BackupFile-08072018.cvs",sep="")

Answer 1

这样的？

df1 <- mtcars 
setwd("...") # replace the dots with the appropriate folder where you want to save your file each day
write.csv(df1, paste0("BackUpFile-", format(as.Date(Sys.Date() - 1), "%d.%m.%Y"), ".csv"))

Answer 2

您可以使用 paste() 函数使用当前日期创建文件夹和文件名。

 mainDir <- "C:/File-Path/"  ### Define main Directory
 subDir <- paste("outputDirectory-",Sys.Date()) ### Define sub Directory using current date
 dir.create(file.path(mainDir, subDir), showWarnings = FALSE) ### Create sub directory inside main directory
 setwd(file.path(mainDir, subDir)) ### change the working directory 
 write.csv(df,paste("C:/File-Path/",subDir,"/request--",Sys.Date(),".csv",sep = ""),row.names = F) ### write your csv file inside sub directory.

如果您不想每天创建一个新文件夹，可以忽略前 4 个步骤。