R语言如何从source()执行报错的位置继续运行脚本？

基础方案：直接使用source内置参数 #

如果仅需要跳过错误执行全部后续代码，直接调用source()时添加continue.on.error = TRUE参数即可：

source("目标脚本文件路径.R", continue.on.error = TRUE)

参数说明：该参数会让source()在检测到运行错误时，仅打印错误信息，不会终止整个执行进程，自动运行后续所有代码。 #

进阶方案：报错后暂停修复、从错误点继续执行 #

如果需要在报错时先修复问题，再从错误位置继续运行无需从头执行，可采用逐行读取+错误捕获的自定义执行逻辑：

# 读取目标脚本的所有代码行
script_lines <- readLines("你的脚本路径.R")
# 全局变量记录当前执行进度，初始值为第1行
exec_index <- 1

while (exec_index <= length(script_lines)) {
  current_code <- script_lines[exec_index]
  tryCatch(
    expr = {
      # 执行当前行代码
      eval(parse(text = current_code))
      # 执行成功后进度+1
      exec_index <- exec_index + 1
    },
    error = function(e) {
      # 打印错误位置和错误详情
      message(sprintf("第%d行执行报错：%s", exec_index, e$message))
      # 暂停等待修复，修复完成后按回车即可继续执行
      readline("完成错误修复后按回车键继续...")
    }
  )
}

注意事项 #

• 若后续代码强依赖报错位置的运行结果，就算跳过错误继续执行，后续代码依然可能出现关联报错，建议优先修复核心依赖的报错再继续执行
• 如果需要留存错误记录，可在error分支添加代码将错误信息写入日志文件，避免错误信息被后续输出覆盖
• 若脚本包含跨多行的复合语句（如for循环、自定义函数），建议使用解析表达式的版本执行，避免逐行执行触发语法错误：

# 适配多行复合语句的进阶版本
script_exprs <- parse("你的脚本路径.R")
exec_index <- 1
while (exec_index <= length(script_exprs)) {
  tryCatch({
    eval(script_exprs[[exec_index]])
    exec_index <- exec_index + 1
  }, error = function(e) {
    message(sprintf("第%d个表达式执行报错：%s", exec_index, e$message))
    readline("完成错误修复后按回车键继续...")
  })
}

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