如何將警告和錯誤保存為函數(shù)的輸出？我正在使用lapply在大量項目上運行復雜的函數(shù)，我想將每個項目的輸出（如果有的話）與所產生的任何警告/錯誤一起保存，以便我可以告訴哪個項目產生哪個警告/錯誤。我找到了一種方法來捕捉警告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)}此函數(shù)的示例輸出是：> 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"
3 回答
有只小跳蛙
TA貢獻1824條經(jīng)驗 獲得超8個贊
也許這與你的解決方案相同，但我寫了一個factory將普通舊函數(shù)轉換為捕獲它們的值，錯誤和警告的函數(shù)，所以我可以
test <- function(i)
switch(i, "1"=stop("oops"), "2"={ warning("hmm"); i }, i)res <- lapply(1:3, factory(test))結果的每個元素都包含值，錯誤和/或警告。這適用于用戶功能，系統(tǒng)功能或匿名功能（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)
ITMISS
TA貢獻1871條經(jīng)驗 獲得超8個贊
試試評估包。
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)")它目前缺乏評估表達式的好方法 - 這主要是因為它的目標是在控制臺上準確再現(xiàn)R輸出的給定文本輸入。
replay(t1)replay(t2)replay(t3)
它還捕獲消息，輸出到控制臺，并確保所有內容按照發(fā)生的順序正確交錯。
守著星空守著你
TA貢獻1799條經(jīng)驗 獲得超8個贊
主要思想是同時保留警告/錯誤消息以及觸發(fā)此問題的命令。
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
- 3 回答
- 0 關注
- 708 瀏覽
添加回答
舉報
0/150
提交
取消