r - 使用 Rmarkdown 嵌入 Rmarkdown，无需 knitr 评估

Question

我想演示如何编写 RMarkdown，其中所说的 RMarkdown 演示嵌入在用于创建类(class) Material 的 RMarkdown 文档中。在这个围栏代码块中，我不希望 knitr 执行该 block 。

我想将这样的内容放入我的“顶级”Rmarkdown 文档中，并在输出 HTML 文档中以固定宽度逐字打印外部围栏之间的所有内容，而不是让 knitr 评估内部嵌入的 R 代码块和内联代码.

```
---
title: "RMarkdown teaching demo"
author: "whoever"
---

# Major heading

Here's some text in your RMarkdown document. Here's a code chunk:

```{r, eval=FALSE}
head(mtcars)
```

Now we're back into regular markdown in our embedded document.

Here's inline code that I don't want executed either; 
e.g. mean of mpg is `r mean(mtcars$mpg)`.

```

我试过 zero-width space trick in knitr example 65 ，但是在尝试编译为 PDF 时失败(我需要 HTML 和 PDF)。

Answer 1

这是实现它的一种方法。您可以添加`r ''`在 block 头之前，以便无法识别代码块，并使用 knitr::inline_expr()生成 `r ` .

````
---
title: "RMarkdown teaching demo"
author: "whoever"
---

# Major heading

Here's some text in your RMarkdown document. Here's a code chunk:

`r ''````{r, eval=FALSE}
head(mtcars)
```

Now we're back into regular markdown in our embedded document.

Here's inline code that I don't want executed either; 
e.g. mean of mpg is `r knitr::inline_expr('mean(mtcars$mpg)')`.

````

如果您将 R Markdown 示例文档保存在单独的文件中，并通过 readLines() 将其包含在顶级文档中，将会更容易。 ，例如

````
`r paste(readLines('example.Rmd'), collapse = '\n')`
````

要在 protected 代码块中包含三个反引号，您需要三个以上的反引号。这就是为什么我在这里使用四个。