Блог

Я пытаюсь создать HTML-документ rmd, в котором используется сворачивание кода, а также блестящее встраивание. Я пытался сделать это, используя документ shiny rmd по умолчанию, но добавляя в code_folding: hide :

 ---
title: "Untitled"
author: "Author"
date: "3/29/2019"
output: 
  html_document: 
    code_folding: hide
runtime: shiny
---

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

## Inputs and Outputs

You can embed Shiny inputs and outputs in your document. Outputs are automatically updated whenever inputs change.  This demonstrates how a standard R plot can be made interactive by wrapping it in the Shiny `renderPlot` function. The `selectInput` and `sliderInput` functions create the input widgets used to drive the plot.

```{r eruptions}
inputPanel(
  selectInput("n_breaks", label = "Number of bins:",
              choices = c(10, 20, 35, 50), selected = 20),

  sliderInput("bw_adjust", label = "Bandwidth adjustment:",
              min = 0.2, max = 2, value = 1, step = 0.2)
)

renderPlot({
  hist(faithful$eruptions, probability = TRUE, breaks = as.numeric(input$n_breaks),
       xlab = "Duration (minutes)", main = "Geyser eruption duration")

  dens <- density(faithful$eruptions, adjust = input$bw_adjust)
  lines(dens, col = "blue")
})
```
  

Что дает:

Итак, как вы можете видеть, код не сворачивается / не скрывается. Я успешно реализовал каждый из них по отдельности, но как их оба можно использовать в одном документе? Я думаю, что они каким-то образом конфликтуют — кто-нибудь знает об обходном пути?

Спасибо!