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

Update

以下几行将为您提供自动大纲。 不幸的是，我不知道如何在 RStudio 中自动重新加载 R 脚本文件。如果有人知道什么，请随时在下面评论或回答Question https://stackoverflow.com/questions/57219339/how-to-reload-current-r-script-file-with-a-command.

The code searches for all the level 1 headers and the Outline header. Then it simply adds the headers as a list and overrides the current script. After reloading the file you have an outline.

---

```{r, echo=FALSE}
require("magrittr")

file_name <- rstudioapi::getSourceEditorContext()[["path"]]

doc <- toc <- readLines(file_name)
tocc <- character()
for (i in 1:length(toc)) {
  if(substr(toc[i][1], 1, 2) == "# ") {
    toc[i] <- gsub("# ", "", toc[i], fixed = TRUE) %>% 
                gsub("#", "", ., fixed = TRUE)
    tocc <- append(tocc, toc[i])
  }
}

tocc <- paste("- ", tocc[-1])

row_outline <- which(doc == "# Outline")
row_body <- which(doc == "---")
row_body <- row_body[which(row_body > row_outline)][1]

doc <- c(doc[1:row_outline], "\n", tocc, "\n", doc[(row_body):length(doc)])


writeLines(doc, file_name)

```

# Outline

---

Old Post

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

---

```{r, echo=FALSE}
require("magrittr")

toc <- readLines("presentation.Rmd")
tocc <- character()

for (i in 1:length(toc)) {
  if(substr(toc[i][1], 1, 2) == "# ") {
    toc[i] <- gsub("# ", "", toc[i], fixed = TRUE) %>% 
                gsub("#", "", ., fixed = TRUE) %>%
                paste0("     ", .)
    tocc <- append(tocc, toc[i])
  }
}

text <- paste(tocc[-1], "\n")
yy <- seq(.9, 0, length = length(text))
```

# 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")
```

---