如何修改R的sys.source()函数使其遇到错误时继续执行？

sys.source遇到解析错误会直接终止执行，要实现不修改原txt文件、出错后继续执行后续代码的需求，你可以自己封装一个逐行处理并捕获错误的函数：

safe_sys_source <- function(file, envir = parent.frame()) {
  # 读取文件所有行
  lines <- readLines(file)
  # 逐行遍历执行
  for (line in lines) {
    # 跳过空行和注释行（判断逻辑可根据实际需求调整）
    trimmed_line <- trimws(line)
    if (trimmed_line == "" || substr(trimmed_line, 1, 1) == "#") {
      next
    }
    # 尝试执行当前行，捕获错误不中断
    tryCatch({
      eval(parse(text = line), envir = envir)
    }, error = function(e) {
      # 可选：打印错误信息方便排查，不需要可以删掉这行
      message(sprintf("执行失败的代码行: %s\n错误信息: %s", line, e$message))
    })
  }
}

使用方法 #

直接把原代码里的sys.source替换成这个自定义函数就行：

set.seed(123)
my_df = data.frame(a = rnorm(10,10,10), b=rnorm(10,10,10))

# 用容错函数执行examples.txt中的代码
my_df <- within(my_df, safe_sys_source("examples.txt", envir = environment()))

功能说明 #

• 函数会逐行读取目标文件，自动跳过空行和以#开头的注释行
• 每一行代码单独尝试执行，遇到错误时只会打印错误提示（可自行关闭），不会终止整个执行流程
• 保持了原sys.source的环境传递逻辑，确保代码在my_df的内部环境中运行，修改后的列能正确写入数据框

执行后，my_df会包含正确运行的c、d、e列，错误行d a会被跳过，不影响后续代码的执行。

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