在 knitr 中使用 YAML 标头参数答案

【问题标题】：Using a YAML header argument in knitr在 knitr 中使用 YAML 标头参数
【发布时间】：2016-08-07 03:31:44
【问题描述】：

我正在使用rmarkdown 和将其输出到beamer 的LaTeX 选项制作一组幻灯片。

我在我的幻灯片中使用了两个模板 - 一个专门用于 LaTeX 选项，另一个是我修改的 pandoc 模板以说明我的幻灯片的一些附加功能。

我在 YAML 标头中定义了一个名为 to_print 的选项，这是一个布尔值 TRUE/FALSE，我将它传递给 pandoc 模板，告诉它添加一个包并清理幻灯片以进行打印。

我也想用这个变量来定义文件的名字。基本想法是我想为我的幻灯片创建一个.rmd 文件，然后只需更改这个选项以表示它是供学生打印或供我演示的。

我发现我可以使用 YAML 标头中的 knit 参数传递 render 函数，但我必须指定 to_print = TRUE 并在 output_file 中的 ifelse() 语句中相应地设置条件。

目前我有：

---
title: "Introduction to R"
subtitle: "Reading and saving data in R"
date: '`r format(Sys.Date())`'
output:
  beamer_presentation:
    fonttheme: professionalfonts
    highlight: tango
    includes:
      in_header: "../../templatefiles/beamer_header.tex"
    template: "../../templatefiles/beamer_template.tex"
    incremental: no
    keep_tex: yes
    slide_level: 3
    theme: Warsaw
    toc: yes
fontsize: 10pt
fontenc: T1
to_print: TRUE
knit: (function(inputFile, encoding) { rmarkdown::render(inputFile, encoding = encoding, 
       output_file = file.path(ifelse(TRUE,
                                      gsub("\\..*","_handout.pdf", inputFile), 
                                      gsub("\\..*", ".pdf", inputFile)))) })
---

我只想指定一个参数，然后用于表示这是否是要打印的讲义：

伪代码：

to_print: TRUE
knit: (function(inputFile, encoding) {rmarkdown::render(inputFile, encoding = encoding, 
       output_file = file.path(ifelse(YAML_PARAM$to_print,
                                      gsub("\\..*","_handout.pdf", inputFile), 
                                      gsub("\\..*", ".pdf", inputFile)))) })

这是否可能，或者类似的东西可以让我拥有一个带有布尔值的 .rmd 文件来切换演示与打印？

【问题讨论】：

标签： r knitr r-markdown pandoc beamer

【解决方案1】：

你可以使用rmarkdown::yaml_front_matter()函数：

---
title: "Introduction to R"
subtitle: "Reading and saving data in R"
date: '`r format(Sys.Date())`'
output:
  beamer_presentation:
    fonttheme: professionalfonts
    highlight: tango
    includes:
      in_header: "../../templatefiles/beamer_header.tex"
    template: "../../templatefiles/beamer_template.tex"
    incremental: no
    keep_tex: yes
    slide_level: 3
    theme: Warsaw
    toc: yes
fontsize: 10pt
fontenc: T1
to_print: TRUE
knit: (function(inputFile, encoding) { rmarkdown::render(inputFile, encoding = encoding, 
       output_file = file.path(ifelse(rmarkdown::yaml_front_matter(inputFile)$to_print,
                                      gsub("\\..*","_handout.pdf", inputFile), 
                                      gsub("\\..*", ".pdf", inputFile)))) })
---

【讨论】：