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

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 <- function(i)
    switch(i, "1"=stop("oops"), "2"={ warning("hmm"); i }, i)res <- lapply(1:3, factory(test))

结果的每个元素都包含值，错误和/或警告。这适用于用户功能，系统功能或匿名功能（factory(function(i) ...)）。这是工厂

factory <- function(fun)
    function(...) {
        warn <- err <- NULL
        res <- withCallingHandlers(
            tryCatch(fun(...), error=function(e) {
                err <<- conditionMessage(e)
                NULL
            }), warning=function(w) {
                warn <<- append(warn, conditionMessage(w))
                invokeRestart("muffleWarning")
            })
        list(res, warn=warn, err=err)
    }

和一些帮助处理结果列表

.has <- function(x, what)
    !sapply(lapply(x, "[[", what), is.null)hasWarning <- function(x) .has(x, "warn")hasError <- function(x) .has(x, "err")isClean <- function(x) !(hasError(x) | hasWarning(x))value <- function(x) sapply(x, "[[", 1)cleanv <- function(x) sapply(x[isClean(x)], "[[", 1)

Answer 2

试试评估包。

library(evaluate)test <- function(i)
    switch(i, "1"=stop("oops"), "2"={ warning("hmm"); i }, i)t1 <- evaluate("test(1)")t2 <- evaluate("test(2)")t3 <- evaluate("test(3)")

它目前缺乏评估表达式的好方法 - 这主要是因为它的目标是在控制台上准确再现R输出的给定文本输入。

replay(t1)replay(t2)replay(t3)

它还捕获消息，输出到控制台，并确保所有内容按照发生的顺序正确交错。

Answer 3

主要思想是同时保留警告/错误消息以及触发此问题的命令。

myTryCatch <- function(expr) {
  warn <- err <- NULL
  value <- withCallingHandlers(
    tryCatch(expr, error=function(e) {
      err <<- e      NULL
    }), warning=function(w) {
      warn <<- w
      invokeRestart("muffleWarning")
    })
  list(value=value, warning=warn, 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