r - 保存功能中的警告/错误而不显示在屏幕上

Question

我发现这个非常有用的工厂可以将任何函数转换为捕获其值，错误和警告(How do I save warnings and errors as output from a function?)的函数:

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)
}

我的问题是错误/警告也显示在屏幕上(除了被工厂捕获外)。如何更改它，以使错误/警告不显示在屏幕上？
谢谢

Answer 1

您需要设置选项，以便不显示错误消息。在函数主体中，可以调用以下代码:

options(show.error.messages= FALSE)

不要忘记在离开前将其转换为 TRUE，查看错误消息总是很有用的。