如何提取并执行.qmd文件中名为setup的代码块？

方法1：用knitr包解析并提取 #

直接解析.qmd文件的代码块，筛选出setup标签的块后执行：

# 读取目标.qmd文件
qmd_lines <- readLines("your_target.qmd")

# 解析文件中的所有代码块
all_chunks <- knitr::parse_chunk(qmd_lines)

# 筛选出label为"setup"的代码块
setup_chunk <- Filter(function(chunk) chunk$label == "setup", all_chunks)[[1]]

# 提取代码内容并执行
setup_code <- paste(setup_chunk$code, collapse = "\n")
eval(parse(text = setup_code))

方法2：针对Quarto .qmd文件（用quarto包） #

如果你的.qmd是Quarto格式，可使用官方quarto包提取：

library(quarto)

# 检查文件结构获取所有块信息
file_info <- quarto_inspect("your_target.qmd")

# 定位setup代码块
setup_block <- Filter(function(block) {
  block$type == "code" && block$name == "setup"
}, file_info$blocks)[[1]]

# 执行代码
eval(parse(text = setup_block$code))

额外提示 #

• 替换your_target.qmd为实际文件路径，注意相对/绝对路径的正确性
• 若想避免污染全局环境，可在新环境中执行代码：eval(parse(text = setup_code), envir = new.env())
• 如果setup块包含包加载语句，需确保当前R环境能访问对应包

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