如何在执行评估前检查所有R Markdown代码块的语法？

要在执行rmarkdown::render()前批量检查所有R代码块的语法，避免运行耗时代码前才发现错误，可以按以下步骤实现：

• 提取Rmd文件中的所有R代码块
  用正则匹配Rmd里的R代码块标记，提取其中的代码内容：

  extract_r_chunks <- function(rmd_path) {
    rmd_content <- readLines(rmd_path, warn = FALSE)
    full_content <- paste(rmd_content, collapse = "\n")
    # 匹配以```r开头、```结尾的代码块
    chunk_matches <- gregexpr("^```\\s*r.*?^```", full_content, perl = TRUE)[[1]]
    chunk_texts <- regmatches(full_content, chunk_matches)
    # 移除代码块的前后标记
    chunk_code <- gsub("^```\\s*r.*?\\n|\\n```$", "", chunk_texts, perl = TRUE)
    names(chunk_code) <- paste0("chunk_", seq_along(chunk_code))
    chunk_code
  }
  

• 批量检查代码块语法
  使用parse()函数仅检查语法（不执行代码），捕获所有语法错误：

  check_chunk_syntax <- function(chunk_code) {
    syntax_errors <- list()
    for (chunk_id in names(chunk_code)) {
      code <- chunk_code[[chunk_id]]
      tryCatch(
        expr = parse(text = code),
        error = function(e) {
          syntax_errors[[chunk_id]] <- e$message
        }
      )
    }
    if (length(syntax_errors) > 0) {
      cat("发现语法错误：\n")
      for (chunk_id in names(syntax_errors)) {
        cat(sprintf("%s: %s\n", chunk_id, syntax_errors[[chunk_id]]))
      }
      stop("存在语法错误，终止渲染流程")
    } else {
      cat("所有代码块语法检查通过\n")
    }
  }
  

• 先检查再渲染
  将两个函数组合，先完成语法检查，确认无误后再执行渲染：

  # 指定你的Rmd文件路径
  target_rmd <- "your_report.Rmd"
  
  # 提取代码块并检查语法
  all_r_chunks <- extract_r_chunks(target_rmd)
  check_chunk_syntax(all_r_chunks)
  
  # 语法无错误时执行渲染
  rmarkdown::render(target_rmd)
  

补充说明 #

• 该方法仅检查R代码块的语法，不会执行任何代码，完全避免耗时代码的运行
• 正则匹配逻辑适用于绝大多数常规Rmd文件，若存在特殊格式的代码块（如嵌套标记），可根据实际情况调整正则表达式
• 可将这两个函数存入R脚本，或放在Rmd的setup代码块中复用

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