如何将警告和错误保存为函数的输出？

Question

如何将警告和错误保存为函数的输出？

我正在使用lapply在大量项目上运行复杂的函数，我想将每个项目的输出（如果有的话）与所产生的任何警告/错误一起保存，以便我可以告诉哪个项目产生哪个警告/错误。

我找到了一种方法来捕捉警告withCallingHandlers（在此描述）。但是，我也需要捕获错误。我可以将它包装在一个tryCatch（如下面的代码中），但是有更好的方法吗？

catchToList <- function(expr) {
  val <- NULL
  myWarnings <- NULL
  wHandler <- function(w) {
    myWarnings <<- c(myWarnings, w$message)
    invokeRestart("muffleWarning")
  }
  myError <- NULL
  eHandler <- function(e) {
    myError <<- e$message    NULL
  }
  val <- tryCatch(withCallingHandlers(expr, warning = wHandler), error = eHandler)
  list(value = val, warnings = myWarnings, error=myError)}

此函数的示例输出是：

> catchToList({warning("warning 1");warning("warning 2");1})$value[1] 1$warnings[1] "warning 1" "warning 2"$errorNULL> catchToList({warning("my warning");stop("my error")})$valueNULL$warnings[1] "my warning"$error[1] "my error"

Answer 1

也许这与你的解决方案相同，但我写了一个factory将普通旧函数转换为捕获它们的值，错误和警告的函数，所以我可以test&nbsp;<-&nbsp;function(i) &nbsp;&nbsp;&nbsp;&nbsp;switch(i,&nbsp;"1"=stop("oops"),&nbsp;"2"={&nbsp;warning("hmm");&nbsp;i&nbsp;},&nbsp;i)res&nbsp;<-&nbsp;lapply(1:3,&nbsp;factory(test))结果的每个元素都包含值，错误和/或警告。这适用于用户功能，系统功能或匿名功能（factory(function(i) ...)）。这是工厂factory&nbsp;<-&nbsp;function(fun) &nbsp;&nbsp;&nbsp;&nbsp;function(...)&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;warn&nbsp;<-&nbsp;err&nbsp;<-&nbsp;NULL &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;res&nbsp;<-&nbsp;withCallingHandlers( &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tryCatch(fun(...),&nbsp;error=function(e)&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;err&nbsp;<<-&nbsp;conditionMessage(e) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NULL &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}),&nbsp;warning=function(w)&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;warn&nbsp;<<-&nbsp;append(warn,&nbsp;conditionMessage(w)) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;invokeRestart("muffleWarning") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;list(res,&nbsp;warn=warn,&nbsp;err=err) &nbsp;&nbsp;&nbsp;&nbsp;}和一些帮助处理结果列表.has&nbsp;<-&nbsp;function(x,&nbsp;what) &nbsp;&nbsp;&nbsp;&nbsp;!sapply(lapply(x,&nbsp;"[[",&nbsp;what),&nbsp;is.null)hasWarning&nbsp;<-&nbsp;function(x)&nbsp;.has(x,&nbsp;"warn")hasError&nbsp;<-&nbsp;function(x)&nbsp;.has(x,&nbsp;"err")isClean&nbsp;<-&nbsp;function(x)&nbsp;!(hasError(x)&nbsp;|&nbsp;hasWarning(x))value&nbsp;<-&nbsp;function(x)&nbsp;sapply(x,&nbsp;"[[",&nbsp;1)cleanv&nbsp;<-&nbsp;function(x)&nbsp;sapply(x[isClean(x)],&nbsp;"[[",&nbsp;1)

Answer 2

试试评估包。library(evaluate)test&nbsp;<-&nbsp;function(i) &nbsp;&nbsp;&nbsp;&nbsp;switch(i,&nbsp;"1"=stop("oops"),&nbsp;"2"={&nbsp;warning("hmm");&nbsp;i&nbsp;},&nbsp;i)t1&nbsp;<-&nbsp;evaluate("test(1)")t2&nbsp;<-&nbsp;evaluate("test(2)")t3&nbsp;<-&nbsp;evaluate("test(3)")它目前缺乏评估表达式的好方法 - 这主要是因为它的目标是在控制台上准确再现R输出的给定文本输入。replay(t1)replay(t2)replay(t3)它还捕获消息，输出到控制台，并确保所有内容按照发生的顺序正确交错。

Answer 3

主要思想是同时保留警告/错误消息以及触发此问题的命令。myTryCatch&nbsp;<-&nbsp;function(expr)&nbsp;{ &nbsp;&nbsp;warn&nbsp;<-&nbsp;err&nbsp;<-&nbsp;NULL &nbsp;&nbsp;value&nbsp;<-&nbsp;withCallingHandlers( &nbsp;&nbsp;&nbsp;&nbsp;tryCatch(expr,&nbsp;error=function(e)&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;err&nbsp;<<-&nbsp;e&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NULL &nbsp;&nbsp;&nbsp;&nbsp;}),&nbsp;warning=function(w)&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;warn&nbsp;<<-&nbsp;w &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;invokeRestart("muffleWarning") &nbsp;&nbsp;&nbsp;&nbsp;}) &nbsp;&nbsp;list(value=value,&nbsp;warning=warn,&nbsp;error=err)}例子：myTryCatch(log(1))myTryCatch(log(-1))myTryCatch(log("a"))输出：> myTryCatch（log（1））$ value [1] 0 $ warning NULL $ error NULL> myTryCatch（log（-1））$ value [1] NaN $警告$ error NULL> myTryCatch（log（“a”））$ value NULL $ warning NULL $ error