`tryCatch` 中的 `withCallingHandlers` 会产生无法捕获的错误

Question

我需要将警告转换为错误，以便能够在上游进一步处理它（警告被吞没在中间的某个地方，我无法控制；错误不是）。为此，我正在执行以下操作：

warning_to_error = function (expr)
    withCallingHandlers(expr, warning = stop)

这很好用：

> warning_to_error(warning('foobar'))
Error in withCallingHandlers(expr, warning = stop) : foobar

不幸的是，这使得错误完全无法捕获：

> try(warning_to_error(warning('foobar')))
Error in withCallingHandlers(expr, warning = stop) : foobar

In my real situation，在我的warning_to_error 和try 之间有好几层（包括消除警告的逻辑）。如何使调用处理程序引发的错误可捕获？不幸的是，我不能像in another Stack Overflow question 所述使用重启，因为stop 没有定义重启，而且我再次无法控制执行捕获的代码。

Answer 1

这应该告诉你你对warning_to_error的定义发生了什么：

> tryCatch(warning_to_error(warning('foobar')), condition = print)
<simpleWarning in withCallingHandlers(expr, warning = stop): foobar>```

正如stop 的文档所述，当您使用条件调用stop 时，会向该条件发出信号以查找处理程序，在这种情况下，这意味着warning 处理程序。如果要调用错误处理程序，则需要发出错误条件信号。例如，当您设置 options(warn = 2) 时会发生这种情况。所以你需要类似的东西

warning_to_error1 <- function (expr)
    withCallingHandlers(expr,
                        warning = function(w)
                            stop("(converted from warning) ",
                                 conditionMessage(w)))

这给了你

> tryCatch(warning_to_error1(warning('foobar')),
+          error = function(e) print("Got it"))
[1] "Got it"

理想情况下，我们应该为转换为错误的警告提供条件类和构造函数，并在内部将其用于warn = 2