在R Markdown中对文章标题排序

# 读取Markdown文档内容
content <- readLines("your_markdown_file.md")

# 使用正则表达式匹配二级标题
pattern <- "^##\\s(.+)"
matches <- grep(pattern, content, value = TRUE)

# 对匹配到的标题进行排序
sorted_titles <- matches[order(matches)]

# 输出排序后的标题
sorted_titles

# 替换二级标题为排序后的标题
for (i in 1:length(sorted_titles)) {
  pattern <- paste0("^##\\s", sorted_titles[i])
  replacement <- paste0("## ", sorted_titles[i])
  content <- gsub(pattern, replacement, content)
}

# 输出替换后的文档内容
content

---
title: "排序后的文章标题"
output:
  html_document:
    toc: true
---

```{r}
# 读取Markdown文档内容
content <- readLines("your_markdown_file.md")

# 使用正则表达式匹配二级标题
pattern <- "^##\\s(.+)"
matches <- grep(pattern, content, value = TRUE)

# 对匹配到的标题进行排序
sorted_titles <- matches[order(matches)]

# 替换二级标题为排序后的标题
for (i in 1:length(sorted_titles)) {
  pattern <- paste0("^##\\s", sorted_titles[i])
  replacement <- paste0("## ", sorted_titles[i])
  content <- gsub(pattern, replacement, content)
}

# 输出替换后的文档内容
content