如何将今天的日期附加到文件名中以保存为 Excel 工作簿？

Question

我有一个 R 脚本，可以将其输出保存到 Excel 工作簿中。

library(stringr)
library(dplyr)
library(xlsx)

...

write.xlsx(as.data.frame(df31), file='df31.xlsx', sheetName="Sheet1", col.names=TRUE, append=TRUE)

显然，根据上面的 R 代码，Excel 工作簿保存在“df31.xlsx”的名称下我需要将今天的日期附加到文件名。我知道 Sys.Date() 会给我今天的日期。

但是，我不知道如何将它添加到上面的代码中，以便我的文件名变成“df31_2021-05-20.xlsx”

如有任何帮助，我们将不胜感激。

Answer 1

您可以在 paste0 的帮助下创建文件名 :

write.xlsx(as.data.frame(df31), 
          file = paste0('df31_', Sys.Date(), '.xlsx'), 
          sheetName="Sheet1", col.names=TRUE, append=TRUE))

或sprintf：

write.xlsx(as.data.frame(df31), 
           file= sprintf('df31_%s.xlsx', Sys.Date()), 
           sheetName="Sheet1", col.names=TRUE, append=TRUE))

Answer 2

你也可以试试today()

write.xlsx(dataframe, paste0("./path/filename_", today(), ".xlsx"))

如何将今天的日期附加到文件名中以保存为 Excel 工作簿？

How to append today's date into the filename to be saved as an Excel Workbook?

r

date

stringr

r-xlsx