Переключить вывод фрагмента с помощью HTML-тега сведений

Это можно сделать с помощью комбинации параметра фрагмента ref.label (для повторного использования фрагментов). , функция фрагмента (для печати тега <details>) и option hook (для изменения параметров чанка при отображении результатов.

---
title: "Toggle Chuck Output Using details Tag"
output: html_document
---

```{r setup, include=FALSE}
library(knitr)

knit_hooks$set(showDetails = function(before, options, envir) {
  if (before) {
    return("<details>\n")
  } else {
    return("\n</details>")
  }
})

opts_hooks$set(showDetails = function(options) {
  if(options$showDetails) {
    options$echo = FALSE
    options$results = "asis"
  }
  return(options)
})
```
  
```{r calc, prompt=TRUE, eval=FALSE}
90 + 30
```


```{r, ref.label="calc", showDetails = TRUE}
```

Как это работает:

• Хук чанка выполняется до и после каждого чанка, где опция showDetails не NULL. Он печатает (возвращает) соответствующий HTML.
• Перехватчик параметров настраивает другие параметры (echo и results) для каждого фрагмента, где showDetails равен TRUE.

Код может быть дополнительно улучшен путем глобальной установки параметров фрагмента calc, чтобы вам не приходилось повторять их для всех других фрагментов только кода показа: добавьте opts_chunk$set(prompt = TRUE, eval = FALSE) в фрагмент настройки и options$eval = TRUE в перехватчик параметров.

Кроме того, если вы хотите использовать теги <detail> по умолчанию при использовании ref.label, вы можете использовать ref.label в качестве опции-хука:

```{r setup, include=FALSE}
library(knitr)

opts_chunk$set(prompt = TRUE, eval = FALSE)

knit_hooks$set(showDetails = function(before, options, envir) {
  if (before) {
    return("<details>\n")
  } else {
    return("\n</details>")
  }
})

opts_hooks$set(ref.label = function(options) {
  options$echo = FALSE
  options$results = "asis"
  options$eval = TRUE
  options$showDetails = TRUE
  
  return(options)
})
```
  
```{r calc}
90 + 30
```


```{r, ref.label="calc"}
```