Как получить свертывание кода с блестящим встраиванием в тот же HTML-документ rmarkdown? - PullRequest
Новая
       22

Как получить свертывание кода с блестящим встраиванием в тот же HTML-документ rmarkdown?

2 голосов
/ 29 марта 2019

Я пытаюсь создать hmml-документ 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")
})
```

, что дает:

enter image description here

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

Спасибо!

...