我明白你的需求——用tryCatch运行脚本时，要能看到控制台原本显示的完整错误内容，同时让脚本在报错的地方立刻停下。你之前的代码只输出固定的"error"，是因为没有利用好错误处理函数里的错误对象e。

试试这个修改后的代码：

a <- tryCatch({
  source("Script.R")
}, error = function(e) {
  # 提取并打印完整的错误信息
  cat("脚本运行出错：", conditionMessage(e), "\n", sep = "")
  # 抛出错误，让脚本停止执行
  stop(e)
})

关键说明： #

• conditionMessage(e)：这个函数能从错误对象e中提取出控制台原本会显示的具体错误描述，比如变量未定义、函数参数错误这类细节。
• stop(e)：调用这个函数会把错误重新抛出，确保脚本在报错位置立刻停止，不会继续执行后续代码。

如果你想要更详细的错误信息（比如包含调用栈），可以直接打印错误对象e：

a <- tryCatch({
  source("Script.R")
}, error = function(e) {
  print("脚本运行出错，详细信息：")
  print(e)
  stop(e)
})

这样就能看到完整的错误上下文，方便定位问题啦。

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