评估 YAML 标头中的 R 代码

Question

考虑以下 Rmd 文件，

---
title: "Untitled"
author: "baptiste"
date: "`r Sys.Date()`"
output: html_document
test: "`r paste('_metadata.yaml')`"
---

```{r}
cat(rmarkdown::metadata$test)
```

日期在传递给 pandoc 以转换为 md 和 html 之前由 R 处理（编织）。但是，自定义字段 test 未计算。

有什么区别？是否可以强制 knitr/rmarkdown 评估 yaml 标头中的任意字段？

注意：实际目的不仅仅是print() 这个虚拟示例中的文件名，而是加载一个包含元数据（作者信息）的外部 yaml 文件，用 R 处理它，并输出一个将被注入的字符串在文档中。

Answer 1

它确实评估代码。如果您使用 foo.Rmd 运行

rmarkdown::render("foo.Rmd", clean = FALSE)

您将看到一个名为foo.knit.md 的中间文件（pandoc 输入）被留在后面。它看起来像这样：

---
title: "Untitled"
author: "baptiste"
date: "2017-08-12"
output: html_document
test: "_metadata.yaml"
---


```r
cat(rmarkdown::metadata$test)
```

```
## `r paste('_metadata.yaml')`
```

我不知道如何从文档中看到这一点（您的示例显示 metadata$test 不起作用），但可能有一些技巧或其他方法可以解决。

Answer 2

标准元数据字段data 和您的自定义字段test 实际上并没有区别对待。这段代码：

---
title: "Untitled"
author: "baptiste"
date: "`r Sys.Date()`"
output: 
  html_document: 
    keep_md: yes
test: "`r paste('_metadata.yaml')`"
---

```{r}
cat(rmarkdown::metadata$date)
cat(rmarkdown::metadata$test)
```

导致以下输出：

如您所见，date 也未被评估。我没有在rmarkdown 或knitr 包中找到任何功能。但以下简单函数至少对您的简单示例有用：

---
title: "Untitled"
author: "baptiste"
date: "`r Sys.Date()`"
output: 
  html_document: 
    keep_md: yes
test: "`r paste('_metadata.yaml')`"
---

```{r}
eval_meta <- function(x) eval(parse(text = gsub("`|r", "", x)))
eval_meta(rmarkdown::metadata$date)
eval_meta(rmarkdown::metadata$test)
```

但是，这是否适用于您更复杂的情况是另一个问题。