如何在同一个rmarkdown html文档中实现代码折叠和闪亮嵌入？

我正在尝试创建一个rmd html文档，它使用以及。我尝试使用默认的闪亮rmd文档来实现这一点，但添加了

code\u-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")
})
```

---
标题：“无标题”
作者：“作者”
日期：“2019年3月29日”
输出：
html_文件：
代码折叠：隐藏
运行时间：闪亮
---
```{r设置，include=FALSE}
knitr:：opts_chunk$set（echo=TRUE）
```
##投入和产出
您可以在文档中嵌入闪亮的输入和输出。只要输入发生变化，输出就会自动更新。这演示了如何通过将标准R绘图包装在闪亮的“renderPlot”函数中，使其具有交互性。“selectInput”和“sliderInput”函数创建用于驱动绘图的输入小部件。
```{r喷发}
输入面板(
选择输入（“n_breaks”，label=“料仓数量：”，
选择=c（10,20,35,50），选择=20），
滑块输入（“bw_调整”，label=“带宽调整：”，
最小值=0.2，最大值=2，值=1，步长=0.2）
)
渲染图({
hist（忠实$喷发，概率=真，中断=数值（输入$n_中断），
xlab=“持续时间（分钟）”，main=“间歇泉喷发持续时间”）
巢穴