如何覆盖 R 中的警告

Question

我有一个函数可以生成不需要的警告，但保留该值。

f <- function(a) { 
  
  if (a > 1) { 
    warning("an uninformative warning")
  }
  a
}

g1 <- function(b) {
  
  withCallingHandlers(
    x <-f(b),
    warning = function(w) {
      warning("A more informative warning")
    })
  
  x
}
g1(2)
#> Warning in (function (w) : A more informative warning
#> Warning in f(b): an uninformative warning
#> [1] 2

^{创建于 2023 年 12 月 12 日，使用reprex v2.0.2}

不幸的是，这会出现 2 个警告。

tryCatch()不保留 x 。和withCallingHandlers()，两个警告都会被抛出。

Answer 1

您可以让warning处理程序发出自己的警告，然后调用muffleWarning重新启动：

f <- function(a) { 
  
  if (a > 1) { 
    warning("an uninformative warning")
  }
  a
}

g1 <- function(b) {
  
  withCallingHandlers(
    x <- f(b),
    warning = function(w) {
      warning('A more informative warning', call. = FALSE)
      tryInvokeRestart("muffleWarning")
    })
  x
}

测试：

g1(2)
#> [1] 2
#> Warning message:
#> A more informative warning