R在评估停止功能后禁用回溯

Question

我正在使用一个错误处理函数，它在另一个函数中使用。这看起来像：

foo <- function() {
 fooo <- function () {
    stop('Hello World')
  }
  fooo()
}

现在，在调用foo()时，R将提供追溯选项。但是，如果仅调用fooo()（首先将其作为独立函数运行），stop()函数将生成错误消息而不进行回溯。理想情况下，我会阻止R生成回溯选项并仅将错误消息打印到控制台。那么..我该怎么做？