如何将R语言警告压缩阈值从10调整为1？

要实现只要触发1条警告就显示汇总信息、不打印具体警告内容的需求，只需修改R的warning.length选项即可：

1. 设置阈值为0
   执行以下代码，把R直接打印警告的最大行数设为0：

options(warning.length = 0)

这个选项默认值是10，当警告行数超过该值时会显示汇总提示。将其设为0后，任何数量的警告（哪怕只有1条）都会触发汇总，不再逐个显示具体内容。

2. 测试验证
   运行仅含1条警告的测试函数：

f <- function() {
  warning("warn 1")
  return(1)
}

f()

输出会变为：

[1] 1
There were 1 warnings (use warnings() to see them)

3. 恢复默认设置
   如果之后需要回到原有的10条阈值，执行：

options(warning.length = 10)

内容的提问来源于stack exchange，提问作者user18894435