Question

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

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

---
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文档，名为＆＃34; 1 plot＆＃34;和＆＃34; 2情节＆＃34;。每个标题后跟图表。但是，我想基于变量以交互方式创建标头。按照这里的建议（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代码？

Answer 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")
}
```

交互式标题R降价

1 个答案: