我正在尝试使用此处来简化文件引用,如果我编写没有任何系统日期的pdf或csv文件,它可以正常工作。例如pdf(here("output/first.pdf))
有效,但如果我添加任何格式化文本,则无效。如果您能帮助我如何使用此处,请不胜感激。谢谢
pdf(file=paste0(projPath,format(Sys.Date(),"%Y%b%d"),".pdf"),
height = 6, width = 16)
write.csv(df,file=paste(projPath,"/output/first_",format(Sys.Date(),"%Y%b%d"),".csv",sep=""), quote=F, row.names = F, na=".")
我建议您使用glue
库,它使向字符串中注入添加变得轻而易举。参见此示例
library(here)
library(glue)
(mydate <- format(Sys.Date(),"%Y%b%d"))
here(glue("something_{mydate}.pdf"))