r - 将日期附加到使用 Sweave 生成​​的 PDF

Question

我通过 Sweave 生成​​每日报告。我想以 YYYYMMDD 格式将当前日期附加到 PDF 的名称中。我正在使用以下代码生成文件：

rnwfile <- system.file("Sweave", "Margin.Rnw", package = "utils")
Sweave(rnwfile)
tools::texi2pdf("Margin.tex")

Margin.Rnw 是我想要生成的报告的主副本（将 LaTeX 与 R 代码混合）。我得到的输出是文件Margin.pdf。我希望有一个名为 *Margin_YYYYMMDD.pdf* 的文件。如果您有任何建议，我将不胜感激。

Answer 1

请参阅 的output论点?RweaveLatex。

这是未经测试的，但应该（？）工作：

rnwfile <- system.file("Sweave", "Margin.Rnw", package = "utils")
outfn <- paste0("Margin_",format(Sys.time(),"%Y%m%d"),".tex")
Sweave(rnwfile,output=outfn)
tools::texi2pdf(outfn)