我试过以下代码:
x <- NULL
tryCatch(
x <- sqrt(-1),
warning = function(cond) print(paste("Ignore: ", conditionMessage(cond)))
)
# [1] "Ignore: NaNs produced"
预期输出:
# [1] "Ignore: NaNs produced"
x
#NaN
请注意，x仍然是NULL.未分配任何值.
x <<-次，但不管用.suppressWarnings(x <- sqrt(-1))后我不知道如何恢复警告信息.当你tryCatch(.., warning=)时，警告第一次发生时，表达式被中断，控制永远不会返回给它.为了"忽略"警告，你需要withCallingHandlers和invokeRestart("mufflewarning").
withCallingHandlers(
x <- sqrt(-1),
warning = function(w) invokeRestart("muffleWarning"))
x
# [1] NaN
研究错误/警告条件的一个好参考是https://adv-r.hadley.nz/conditions.html.
我认为在两种情况下，使用"muffleWarning"而不是suppressWarnings是合理的: