r - tryCatch() 显然忽略了警告

Question

我正在编写一个函数，该函数使用 kmeans 来确定 bin 宽度，以将连续测量值(预测概率)转换为整数(3 个 bin 之一)。我偶然发现了一个边缘情况，在这种情况下，我的算法可以(正确)预测整个集合的相同概率，我想处理这种情况。我正在使用 rattle包裹的binning()功能如下:

btsKmeansBin <- function(x, k = 3, default = c(0, 0.3, 0.5, 1)) {
  result <- binning(x, bins = k, method = "kmeans", ordered = T)
  bins <- attr(result, "breaks")
  attr(bins, "names") <- NULL
  bins <- bins[order(bins)]
  bins[1] <- 0
  bins[length(bins)] <- 1
  return(bins)
}

在 x <- c(.5,.5,.5,.5,.5,.5) 上运行此函数，您将在 order(bins) 处收到错误消息步骤，因为 bins将为 NULL，因此不是向量。

显然，如果 x只有一个不同的值，kmeans 不应该工作。在这种情况下，我想返回 default箱分区。发生这种情况时， binning问题“警告:不考虑变量。”所以我想用 tryCatch处理此警告，但围绕 result <- ...带有以下代码的行不能按我期望的方式工作:

...
tryCatch({
  result <- binning(x, bins = k, method = "kmeans", ordered = T)
}, warning = function(w) {
  warn(sprintf("%s. Using default values", w))
  return(default)
}, error = function(e) {
  stop(e)
})
...

警告被打印，好像我没有使用过 tryCatch ，并且代码进展到了 return语句并从 order 抛出错误再次。我尝试了很多变体都无济于事。我错过了什么，在这里？

Answer 1

如果您查看 binning我想你会发现你看到的“警告”不是通过 warning() 生成的但与 cat() ，这就是为什么 tryCatch不是捡起来的binning作者对于这种疏忽，可能应该用湿面条进行几次捆绑。 ;) (或者它可能是故意的，因为拨浪鼓的工作方式特殊，我不确定。)

似乎返回 NULL发生这种情况时，您只需手动处理即可。不理想，但可能是唯一的出路。