交互式标题 R 降价答案

【问题标题】：Interactive headers R markdown交互式标题 R 降价
【发布时间】：2016-04-13 10:39:19
【问题描述】：

我想在 Markdown 文档中添加交互式标题。

假设我们有以下降价文档：

---
title: "Non-interactive header"
output: 
   html_document:
      toc: true
---

## 1 plot
```{r, echo=FALSE}
plot(1, 1)
```

## 2 plot
```{r, echo=FALSE}
plot(1, 1)
```

这将创建一个带有 2 个标题的 html 文档，分别称为“1 plot”和“2 plot”。每个标题后面都有情节。但是，我想基于变量以交互方式创建标题。按照这里的建议 (http://biochemistri.es/modular-workbook) 我想出了这个：

---
title: "Interactive header"
output: 
   html_document:
      toc: true
---

```{r, echo=FALSE, results = 'asis'}
for (i in paste(1:10, "plot")) {
  cat(paste("##", i), sep = "\n")
}
```

乍一看，这很好用。 html 文档由 10 个标题组成，称为 1plot、2 plot 等。不幸的是，一旦我将代码添加到标题中，该图仅显示在第二个标题之后，并且后续标题不再显示为标题。

---
title: "Interactive header"
output: 
   html_document:
      toc: true
---

```{r, echo=FALSE, results = 'asis'}
for (i in paste(1:10, "plot")) {
  cat(paste("##", i), sep = "\n")
  plot(1, 1)
}
```

所以问题是：如何将 r-code 添加到每个交互式标题中？

【问题讨论】：

标签： markdown knitr r-markdown pandoc

【解决方案1】：

我发现这可以在情节之后添加两个换行符来实现。

---
title: "Interactive header"
output: 
   html_document:
      toc: true
---

```{r, echo=FALSE, results = 'asis'}
for (i in 1:10) {
  cat(paste("## Plot", i), sep = "\n")
  plot(i, 1)
  cat("\n\n")
}
```

【讨论】：