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

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个步骤。