使用 pagedown::chrome_print (R 包)向 pdf 添加页码?

jtr*_*r13 5 pdf r r-markdown slidy

我正在使用pagedown::chrome_print()Rmarkdown 将创建的幻灯片演示文稿转换为 pdf——它比从 Chrome 保存为 PDF 效果更好。然而,尽管研究了帮助文件,我还是不知道如何添加页码。有没有办法做到这一点?

(请注意,这里的 pagedown 指的是 R 包,而不是 JavaScript markdown 预览器。)

RLe*_*sur 6

抱歉,如果帮助页面在这一点上不清楚。

可以使用将页眉/页脚选项传递给 Chrome pagedown::chrome_print()

这些选项是 Chrome DevTools 协议为Page.printToPDF 方法定义的选项。

您可以使用 HTML 模板自定义页眉和页脚。Chrome还提供以下值:datetitleurlpageNumbertotalPages

根据此帮助页面上的说明,以下是打印页码的示例:

library(htmltools)

footer <- div(
  style = "font-size: 8pt; text-align: right; width: 100%; padding-right: 12pt;", 
  span(class = "pageNumber"), "/", span(class = "totalPages")
)

pagedown::chrome_print(
  "slidy.Rmd", 
  options = list(
    landscape = TRUE, 
    displayHeaderFooter = TRUE, 
    footerTemplate = format(footer, indent = FALSE),
    marginTop = 0,
    marginBottom = 0.4
  )
)
Run Code Online (Sandbox Code Playgroud)