如何在R中使用tryCatch终止运行并抛出自定义及原始错误信息？

原代码存在两个核心问题：

• stop()放在最前面会直接终止程序，导致后续打印语句完全无法执行
• 未正确获取原始错误信息，Original_message是未定义变量，需通过错误对象e的属性调用

以下是满足「捕获错误、终止运行、打印个性化+原始错误信息」三个需求的正确代码：

a <- 1
res <- tryCatch({
  a + "T"
}, error = function(e) {
  # 先打印个性化提示与原始错误信息
  cat("We get the following errors:\n")
  cat("原始错误信息：", e$message, "\n")
  # 打印完成后终止程序，call. = FALSE 用于屏蔽多余的调用栈提示
  stop("程序因错误终止", call. = FALSE)
})

代码说明：

• 错误处理函数中，通过e$message直接获取触发的原始错误内容
• 先完成所有打印操作，再调用stop()终止程序，确保信息能正常输出
• call. = FALSE参数可以让终止提示更简洁，只显示自定义内容

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