通过try和catch运行R脚本时无法打印错误消息

Question

我正在try和catch中运行一个r脚本。我正在寻找打印收到的错误消息，如我们在控制台中看到的，如果出现错误。并且脚本应该从那一点停止运行。 下面的代码我试图运行...

a <- tryCatch({
  source("Script.R")
}, error = function(e) {
  print("error")
})

而不仅仅是错误，我希望在失败的情况下打印错误消息。