通过胁迫引入NA时如何避免警告

用：suppressWarnings()

suppressWarnings(as.numeric(c("1", "2", "X")))
[1]  1  2 NA

这将禁止显示警告。

suppressWarnings()已经提到过了。另一种方法是先手动将有问题的字符转换为 NA。对于您的特定问题，就是这样做的。这样，如果您从函数中收到其他一些意外警告，它就不会被抑制。taRifx::destring

> library(taRifx)
> x <- as.numeric(c("1", "2", "X"))
Warning message:
NAs introduced by coercion 
> y <- destring(c("1", "2", "X"))
> y
[1]  1  2 NA
> x
[1]  1  2 NA

通常，禁止显示警告不是最佳解决方案，因为您可能希望在提供一些意外输入时收到警告。
下面的解决方案是在数据类型转换期间仅维护 NA 的包装器。不需要任何包装。

    as.num = function(x, na.strings = "NA") {
        stopifnot(is.character(x))
        na = x %in% na.strings
        x[na] = "0"
        x = as.numeric(x)
        x[na] = NA_real_
        x
    }
    as.num(c("1", "2", "X"), na.strings="X")
    #[1]  1  2 NA

我稍微修改了 jangorecki 函数，以应对我们可能有各种无法转换为数字的值的情况。在我的函数中，执行模板搜索，如果未找到模板，则返回 FALSE。！在 gperl 之前，这意味着我们需要那些与模板不匹配的矢量元素。其余部分与函数类似。例：as.num

as.num.pattern <- function(x, pattern){
  stopifnot(is.character(x))
  na = !grepl(pattern, x)
  x[na] = -Inf
  x = as.numeric(x)
  x[na] = NA_real_
  x
}

as.num.pattern(c('1', '2', '3.43', 'char1', 'test2', 'other3', '23/40', '23, 54 cm.'))

[1] 1.00 2.00 3.43   NA   NA   NA   NA   NA

仅静默特定警告的一种方法是，根据警告列表中的位置或 R 中的正则表达式，使用“禁止显示警告”中的方法

编辑：请注意，这种方法对语言环境更改/翻译并不可靠（感谢 Ben Bolker 指出这一点）。

以下是特定 OP 案例的完整示例：

with_warning_handler <- function(reg, ...)
{
  withCallingHandlers(..., warning = function(w)
    {
        condition <- conditionMessage(w)
        if(grepl(reg, condition)) invokeRestart("muffleWarning")
  })
}


with_warning_handler("NAs introduced by coercion",
  x <- as.numeric(c("1", "2", "X"))
)