r语言 - 如何将今天的日期附加到文件名中以另存为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"))