如何通过on.exit()函数可靠判断R程序的终止状态？

我编写了一款R程序，通过cron事件触发每日夜间执行任务。现在希望根据程序的退出状态发送通知，程序结束后存在三种状态：

• 未发生任何错误
• 发生错误，但被tryCatch捕获
• 发生错误且未被捕获，程序意外终止

对我而言，前两种情况归为无错误，最后一种归为错误。

我发现两种模式会改变R的错误处理方式：

• 是否处于交互式R会话
• traceback(x)的取值为NULL或整数（本文示例中为x=1）

为测试R在这些不同场景下的行为，我编写了一个最小可复现示例（MWE）并制作表格展示结果。从表格中可见，部分场景（如非交互式且x=1）无法区分上述三种状态。

请问如何通过on.exit()函数可靠判断R程序的终止状态？或如何通过on.exit()函数可靠判断R程序是否出现未捕获错误？

测试结果表格 #

最小可复现示例（MWE） #

test <- function(error, trace) {
  on.exit(
    {
      print(nchar(geterrmessage()) == 0)
      print(is.null(.traceback(trace)))
    },
    add = TRUE,
    after = TRUE
  )

  if (error == "c") {
    result <- tryCatch({
      "1" + 1
    }, warning = function(w) {
      print(w)
    }, error = function(e) {
      print(e)
    }, finally = {
      print("finally")
    })
  } else if (error == "u") {
    "1" + 1
  } else if (error == "n") {
    1 + 1
  } else {
    print("BAD")
  }
}

.rs.restartR()
options(error = NULL)
test(error = "n", trace=NULL)

.rs.restartR()
options(error = NULL)
test(error = "u", trace=NULL)

.rs.restartR()
options(error = NULL)
test(error = "c", trace=NULL)

#########

.rs.restartR()
options(error = NULL)
test(error = "n", trace=1)

.rs.restartR()
options(error = NULL)
test(error = "u", trace=1)

.rs.restartR()
options(error = NULL)
test(error = "c", trace=1)

要通过on.exit()可靠判断未捕获错误，核心是主动追踪错误状态，摆脱geterrmessage()、.traceback()这类受会话模式影响的函数限制，以下是两种可行方案：

方案1：全局标记错误状态 #

初始化全局变量标记错误状态，通过自定义错误处理函数修改标记，on.exit()中读取标记即可判断状态：

# 初始化全局错误标记
global_env <- globalenv()
global_env$uncaught_error <- FALSE

# 设置未捕获错误的处理逻辑
options(error = function() {
  global_env$uncaught_error <- TRUE
  # 保留程序终止的默认行为
  quit(status = 1, save = "no")
})

test <- function(error) {
  on.exit({
    if (global_env$uncaught_error) {
      print("程序出现未捕获错误")
      # 这里可添加通知逻辑，比如发送邮件/消息
    } else {
      print("无未捕获错误（正常结束或错误已被捕获）")
    }
  }, add = TRUE, after = TRUE)

  # 原有业务逻辑
  if (error == "c") {
    result <- tryCatch({
      "1" + 1
    }, warning = function(w) {
      print(w)
    }, error = function(e) {
      print(e)
    }, finally = {
      print("finally")
    })
  } else if (error == "u") {
    "1" + 1
  } else if (error == "n") {
    1 + 1
  } else {
    print("BAD")
  }
}

# 测试
test(error = "n") # 无错误
test(error = "u") # 未捕获错误
test(error = "c") # 已捕获错误

方案2：顶层tryCatch封装主逻辑 #

将整个程序主逻辑放到顶层tryCatch中，统一管控未捕获错误，无需全局变量：

main <- function() {
  has_uncaught_error <- FALSE
  
  on.exit({
    if (has_uncaught_error) {
      print("程序出现未捕获错误")
      # 添加通知逻辑
    } else {
      print("无未捕获错误")
    }
  })
  
  tryCatch({
    # 调用你的主业务逻辑
    test(error = "u")
  }, error = function(e) {
    has_uncaught_error <- TRUE
    print(paste("错误详情：", e$message))
    quit(status = 1, save = "no")
  })
}

# 保留原有test函数
test <- function(error) {
  if (error == "c") {
    result <- tryCatch({
      "1" + 1
    }, warning = function(w) {
      print(w)
    }, error = function(e) {
      print(e)
    }, finally = {
      print("finally")
    })
  } else if (error == "u") {
    "1" + 1
  } else if (error == "n") {
    1 + 1
  } else {
    print("BAD")
  }
}

# 执行主程序
main()

关键说明 #

• 两种方案均不受交互式/非交互式会话、traceback参数影响，在cron触发的非交互式环境中完全可靠。
• 方案2更推荐，通过顶层tryCatch统一管控错误，逻辑更清晰，避免全局变量的副作用。
• 最终可根据has_uncaught_error状态调用通知工具（如邮件API、企业微信接口）发送对应消息。

内容的提问来源于Stack Exchange，提问作者Someone2