捕获警告而不将其转换为错误

Question

我需要在不干扰混合操作的情况下捕获警告（在 R 中） 生成它们的模型。到目前为止，我已经研究了两种变体。在 一种情况，发生错误导致模型翻倒，我很高兴 能够在模型运行成功时记录来自这些实例的拟合对象，并散布故障记录：

storOutcomes<-lapply(1:50, function(i)tryCatch(CustomlmerFnctn(Datasets[[i]]),
error=function(e) NULL )) 

在第二种情况下，我可以使用 options(warn=2) 将警告更改为错误并使用 类似于上面的语法。但是，我看不到如何记录拟合的 对象和收敛状态，即至少出现两个警告

“In mer_finalize (ans) : singular convergence (7)”

或

“In mer_finalize (ans) : false convergence (8)“

我希望能够将收敛状态与模型参数联系起来。 所以基本上我想知道如何捕获警告而不将它们翻译成 错误。我尝试了 options(warn=1)、suppressMessages 和 sink(…, type(“output”,”message”)) 与 cat() 语句的组合，生成迭代/数据集 ID 来自模型函数，但这只会将连续的 ID 写入文件，留下 标准输出上的警告。

Answer 1

从你复杂的例子中很难看出，但也许

warn <- NULL
value <- withCallingHandlers({
    warning("oops")
    1 + 2
}, warning = function(w) {
    warn <<- append(warn, conditionMessage(w))
    invokeRestart("muffleWarning")
})

导致

> warn
[1] "oops"
> value
[1] 3

这也在?withCallingHandlers 及其附加文档demo(error.catching) 上进行了说明。 muffleWarning 在?warning 上被提及。