主页 / coding / 问题 / 78800959
Accepted
user18894435
Asked: 2024-07-27 17:06:44 +0800 CST

将任意数量的警告消息压缩为一条

  • 772

从?options描述中warn可以看出

如果发出了 10 个或更少的警告，则会打印这些警告，否则会显示一条消息，说明发出了多少个警告。

因此，如果有超过 10 条警告，它们将被压缩为 1 条消息。例如：

f <- function() {
  warning("warn 1")
  warning("warn 2")
  warning("warn 3")
  warning("warn 4")
  warning("warn 5")
  warning("warn 6")
  warning("warn 7")
  warning("warn 8")
  warning("warn 9")
  warning("warn 10")
  warning("warn 11")
  return(1)
}

f()

[1] 1
共有 11 条警告（使用 warnings() 查看）

我怎样才能将 10 的限制减少到 1？即即使我只有一个警告，我也希望它显示

有 1 条警告（使用 warnings() 查看）

1 个回答

  1. Best Answer

    找不到将此阈值全局设置为自定义值的选项（这可能是一个不错的功能请求，您可以在 r-devel 上讨论）。相反，您可以使用包装函数在需要时汇总警告。我们需要一个环境，因为——出于充分的理由——'last.warning'是只读的。

    W <- \(FUN) {
  env <- new.env()
  env$w_lst <- list()  ## empty warning list to increment
  res <- withCallingHandlers(FUN, warning=\(w) {
    env$w_lst <- c(env$w_lst, list(w))
    invokeRestart('muffleWarning')
  })
  n <- length(env$w_lst)  ## count warnings
  if (n > 0) {
    more <- (n > 1L) + 1L
    msg <- sprintf('There %s %s warning%s (use warnings2() to see %s)',
                   switch(more, 'was', 'were'),
                   n,
                   switch(more, '', 's'),
                   switch(more, 'it', 'them')
    )
    message('Warning: ', msg)
    assign('last.warning', env$w_lst, envir=warn_env)  ## assign warnings to env
  }
  res
}
## alternative warnings function
warnings2 <- \() {
  if (exists("last.warning", envir=warn_env)) {
    w_lst <- get("last.warning", envir=warn_env)
    for (i in seq_along(w_lst)) {
      message(sprintf('Warning %d: %s', i, conditionMessage(w_lst[[i]])))
    }
  } else {
    base::warnings()
  }
}


    > warn_env <- new.env()  ## create env for 'last.waning'
> 
> W(f(0))
[1] 1
> W(f(1))
Warning: There was 1 warning (use warnings2() to see it)
[1] 1
> W(f(2))
Warning: There were 2 warnings (use warnings2() to see them)
[1] 1
> W(f(11))
Warning: There were 11 warnings (use warnings2() to see them)
[1] 1
> 
> warnings2()
Warning 1: foo
Warning 2: foo
Warning 3: foo
Warning 4: foo
Warning 5: foo
Warning 6: foo
Warning 7: foo
Warning 8: foo
Warning 9: foo
Warning 10: foo
Warning 11: foo

    数据：

    f <- \(n) {
  replicate(n, warning('foo'))
  return(1)
}
    • 2

相关问题