xaringan幻灯片上的目录？

Question

我想知道是否有可能将显示目录的幻灯片添加到使用xaringan包创建的文档中？谢谢。

Answer 1

更新

下面的几行代码会给你一个自动的提纲。不幸的是，我不知道如何在RStudio中自动重新加载R脚本文件。如果有人知道什么，请随时在下面的Question中发表评论或回答。

代码搜索所有的1级标头和大纲标头。然后，它简单地将头文件添加为列表并覆盖当前脚本。重新加载文件后，您就有了一个大纲。

​

---

```{r, echo=FALSE}

require("magrittr")

file_name <- rstudioapi：：getSourceEditorContext()[“路径”]

文档<- toc <- readLines(file_name)

tocc <-字符()

for (i in 1:length(toc)) {

if(substr(toci，1，2) == "# ") {

toc[i] <- gsub("# ", "", toc[i], fixed = TRUE) %>% 

            gsub("#", "", ., fixed = TRUE)

tocc <- append(tocc, toc[i])

}

}

tocc <-粘贴(“- "，tocc 1)

大纲<- row_outline (文档大纲"# ==“)

row_body <- which(文档==“-”)

row_body <- row_bodywhich(row_body > row_outline)

文档<- c(doc1:row_outline，"\n"，tocc，"\n"，文档(Row_body)：长度(文档))

writeLines(文档，file_name)

# Outline

---

旧帖子

由于Sébastien Rochette的评论对我不起作用，我用R创建了一个非常糟糕的解决方案。我可以想到更好的解决方案，但这是一个非常快速的解决方案。我希望我能在不久的将来更新我的答案。

---

```{r, echo=FALSE}

require("magrittr")

toc <- readLines("presentation.Rmd")

tocc <-字符()

for (i in 1:length(toc)) {

if(substr(toci，1，2) == "# ") {

toc[i] <- gsub("# ", "", toc[i], fixed = TRUE) %>% 

            gsub("#", "", ., fixed = TRUE) %>%

            paste0("     ", .)

tocc <- append(tocc, toc[i])

}

}

文本<-粘贴(tocc-1，"\n")

yy <- seq(.9，0，length =长度(文本))

# Outline

```{r, echo = FALSE}

plot(x = rep(0.2，length(text))，y= yy * 1.035，

 xlim = c(0, 1), ylim = c(-0.1, 1), xlab = "", ylab = "", axes = FALSE, 

 col = "#056EA7", type = "p", pch = 16)

text(x = 0.2，y= yy，labels = text，adj = 0，col = "black")

---

​

​