Обходной путь для свертывания кода на веб-сайтах Hugo blogdown

В документах Rmarkdown есть опция свертывания кода --code_folding: hide. Этот параметр недоступен для веб-сайтов Hugo, созданных с помощью пакета blogdown (см. этот недавно открытый запрос функции). Кто-нибудь придумал обходной путь для этого? Даже какой-то JavaScript и HTML-код, который можно добавлять в пост за постом?

Например, blogdown создает сайт Hugo по умолчанию с темой Hugo-lithium, когда вы запускаете следующую команду в новом каталоге:

blogdown::new_site().

Один из постов, сгенерированных для этого значения по умолчанию, приведен ниже. Мне было бы интересно добавить в этот пример свертывание кода, то есть кнопку скрытия/отображения на веб-странице над каждым блоком кода R.


title: "Hello R Markdown"
author: "Frida Gomam"
date: 2015-07-23T21:13:14-05:00
categories: ["R"]
tags: ["R Markdown", "plot", "regression"]
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(collapse = TRUE)
```

# R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

You can embed an R code chunk like this:

```{r cars}
summary(cars)
fit <- lm(dist ~ speed, data = cars)
fit
```

# Including Plots

You can also embed plots. See Figure \@ref(fig:pie) for example:

```{r pie, fig.cap='A fancy pie chart.', tidy=FALSE}
par(mar = c(0, 1, 0, 1))
  pie(
    c(280, 60, 20),
    c('Sky', 'Sunny side of pyramid', 'Shady side of pyramid'),
    col = c('#0292D8', '#F7EA39', '#C4B632'),
    init.angle = -50, border = NA
 )

person Nate A    schedule 13.10.2017    source источник
comment
К вашему сведению, stackoverflow.com/q/45360998/559676 может оказаться полезным (у вас должны быть базовые знания JS).   -  person Yihui Xie    schedule 14.10.2017
comment
Спасибо, Yihui! Я знаю достаточно, чтобы следовать примерам, поэтому я попробую.   -  person Nate A    schedule 15.10.2017