Question

我用闪亮的小部件准备了非常简单的rmarkdown文档。我想添加目录，但是虽然我使用toc: yes它根本不起作用，为什么？

---
title: "Test document"
author: "XXX"
date: "XXX"
output:
  html_document:
    toc: yes
runtime: shiny
---


```{r, echo = FALSE}
h2('R package')
br()    
h3('Ggplot2')
br()
h4('Mtcars')

library(ggplot2)
data(mtcars)
selectInput('name', 'Choose a cylinder:',
            choices = sort(unique(mtcars$cyl)),
            selected = sort(unique(mtcars$cyl))[1])
data <- reactive(subset(mtcars,cyl == input$name))
number <- reactive(which(sort(unique(mtcars$cyl)) == input$name))
renderPlot(ggplot(data(),aes(qsec, mpg))+
  geom_point(size = 6))
```

Answer 1

您的标题必须位于代码块之外，才能抓住内容表。
然后，您应该使用适当数量的#而不是html样式来显示标题大小。

另请注意，toc深度默认为3，因此在您的情况下，mtcars不会出现在toc中，除非您将toc_depth调整为4。

这应该做你想要的：

---
title: "Test document"
author: "XXX"
date: "XXX"
output:
  html_document:
    toc: TRUE
    toc_depth: 4
runtime: shiny
---

## R package

### ggplot2

#### mtcars

```{r, echo = FALSE}
library(ggplot2)
data(mtcars)
selectInput('name', 'Choose a cylinder:',
            choices = sort(unique(mtcars$cyl)),
            selected = sort(unique(mtcars$cyl))[1])
data <- reactive(subset(mtcars,cyl == input$name))
number <- reactive(which(sort(unique(mtcars$cyl)) == input$name))
renderPlot(ggplot(data(),aes(qsec, mpg))+
            geom_point(size = 6))
```

旁注：即使使用toc: TRUE而不是toc: yes

，它更常见

html_document中的Toc与闪亮不起作用

1 个答案: