如何在编织与交互式运行时均获取Rmd代码块标签？

你遇到的问题核心是：用RStudio的“Run Current Chunk”运行代码时，并没有触发knitr的完整编织流程，knitr::opts_current对象未被初始化，因此无法获取标签；而编织文档时knitr会自动处理代码块元信息，能正常读取标签。

这里提供两种可行的解决方法：

方法一：用RStudio API自动获取当前chunk标签（推荐） #

通过rstudioapi包可以直接读取当前编辑器中代码块的信息，结合knitr的环境判断，就能在两种场景下都拿到标签：

1. 先安装依赖包（未安装过的话）：

install.packages("rstudioapi")

2. 在代码块中使用以下代码：

library(rstudioapi)

get_current_chunk_label <- function() {
  # 编织文档时，用knitr自带方法获取标签
  if (knitr::is_knit_output()) {
    return(knitr::opts_current$get("label"))
  }
  # RStudio运行单个chunk时，用API读取当前chunk的标签
  if (rstudioapi::isAvailable()) {
    current_doc <- rstudioapi::getSourceEditorContext()
    current_chunk <- rstudioapi::findChunk(current_doc$selection[[1]]$range$start)
    if (!is.null(current_chunk)) {
      return(current_chunk$name)
    }
  }
  # 其他场景返回NULL
  return(NULL)
}

# 调用函数获取标签
get_current_chunk_label()

这个函数会自动识别运行环境：编织时用knitr的逻辑，单独运行chunk时用RStudio API提取标签，无需手动重复输入标签。

方法二：手动定义标签并同步（简单但繁琐） #

如果不想额外安装包，可以手动在代码块里定义标签变量，再和knitr的标签同步：

# 手动定义标签
chunk_label <- "my-chunk-label"
# 编织时覆盖为knitr的实际标签
if (knitr::is_knit_output()) {
  chunk_label <- knitr::opts_current$get("label")
}

# 使用标签
chunk_label

这种方法需要手动维护标签和代码块名一致，适合简单场景，但代码块数量多的时候容易出错。

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