Интерактивные заголовки R markdown

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) 
``` 

Это создаст документ HTML с 2 заголовков под названием «1 участок» и «2 участка». За каждым заголовком следует сюжет. Однако я хотел бы интерактивно создавать заголовки на основе переменной. После предложения нашли здесь (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 заголовков, называемых 1плот, 2 участка и т. Д. К сожалению, как только я добавляю код в заголовки, график отображается только после второго заголовка, а последующие заголовки больше не отображаются в виде заголовка.

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