如何通过knitr提取代码块标签及位置？能否在RStudio提取文档大纲？

1. 提取knitr代码块标签与行号映射 #

knitr没有直接返回代码块标签与对应行号的内置函数，但可以借助knitr::parse_chunk()解析文档元数据，自行实现标签与位置的映射。这个函数会读取文档并解析每个代码块的详细信息，包括标签和起始行号。

实现示例：

extract_chunk_labels_pos <- function(path) {
  # 解析目标文档的所有代码块
  doc_chunks <- knitr::parse_chunk(path)
  
  # 筛选带有标签的块，提取标签与起始行号
  purrr::map_dfr(doc_chunks, function(chunk) {
    if (!is.null(chunk$label)) {
      data.frame(
        label = chunk$label,
        start_line = chunk$line_number,
        stringsAsFactors = FALSE
      )
    }
  })
}

# 使用方式
extract_chunk_labels_pos("file.qmd")

运行后会返回一个数据框，包含每个代码块的标签和对应的起始行号。

2. RStudio中提取文档大纲 #

可以通过rstudioapi包的getOutline()函数提取当前在RStudio中打开文档的大纲，包括标题、代码块等节点的位置和内容。

实现示例：

# 确保在RStudio环境中运行
if (rstudioapi::isAvailable()) {
  # 获取当前活跃编辑器的大纲
  doc_outline <- rstudioapi::getOutline(document = rstudioapi::getSourceEditorContext())
  
  # 提取大纲节点的关键信息
  purrr::map_dfr(doc_outline$outline, function(node) {
    data.frame(
      node_type = node$type,
      content = node$text,
      line_number = node$line,
      stringsAsFactors = FALSE
    )
  })
}

该代码会返回一个数据框，包含大纲节点的类型（如标题、代码块）、内容和所在行号。

内容的提问来源于stack exchange，提问作者olivroy