Отображение нескольких фрагментов кода в сжатой форме

Поскольку мой предыдущий ответ был немного запутанным и не очень подробным, я делаю новый ответ, который соответствует тому, что я хотел сделать (т.е. иметь возможность свернуть некоторые фрагменты кода).

Решение состоит в том, чтобы использовать пакет details Джонатана Сиди, как указано этот ответ . Первоначально цель этого пакета заключалась в том, чтобы скрыть некоторые выходные данные, которые занимают много места, такие как sessionInfo, в HTML-документах, созданных с помощью R Markdown (и, следовательно, также с R Blogdown). Вот пример (взято с сайта пакета):

---
title: "Test"
output: html_document
---

```{r}
library(details)

sessioninfo::session_info()%>%
  details::details(summary = 'current session info')
```

Однако то, что я хочу скрыть, — это не вывод некоторого кода R, а код Stata (который не предназначен для запуска), чтобы читатели могли сравнить код R с кодом Stata, если захотят. Поэтому для этого мы должны использовать некоторый HTML:

---
title: "Test"
output: html_document
---

## Regression with R and Stata

```{r, eval=FALSE}
lm(mpg ~ drat, data = mtcars)
```

<details>
<summary> Stata </summary>
```stata
regress y x
```
</details>

Теперь читатели могут видеть код Stata, если хотят, а те, кто не хочет, не отвлекаются на слишком большое количество фрагментов кода. Это работает и для статей Blogdown (поскольку это «просто» немного R Markdown на веб-сайте).

Дополнительные функции (например, настроить скрытые фрагменты) подробно описаны на веб-сайте пакета. .

Я нашел другую альтернативу, которая пока кажется лучшей: использовать наборы панелей {xaringanExtra}.

Наборы панелей работают для {xaringan} презентаций, а также для вывода R Markdown (и, следовательно, {blogdown}). Подробнее см. здесь. Вот небольшая демонстрация:

---
title: Title
output:
  blogdown::html_page
---

```{r include = FALSE}
library(xaringanExtra)
# enable panelset
use_panelset()
```

## Title 

Here's a simple way to display several code chunks in a concise way:


::::: {.panelset}

<!-- First panel -->
::: {.panel}
[R code]{.panel-name}

Check the R code below:
```{r echo = TRUE, eval = FALSE}
lm(mpg ~ drat, data = mtcars)
```
:::

<!-- Second panel -->
::: {.panel}
[Stata code]{.panel-name}

```
regress y x

```
:::

<!-- Third panel -->
::: {.panel}
[R output]{.panel-name}
```{r echo = FALSE, eval = TRUE}
lm(mpg ~ drat, data = mtcars)
```
:::

::::