Cómo evitar advertencias al introducir NA por coerción

Generalmente prefiero codificar R para no recibir advertencias, pero no sé cómo evitar recibir una advertencia cuando uso as.numericpara convertir un vector de caracteres.

Por ejemplo:

x <- as.numeric(c("1", "2", "X"))

Me dará una advertencia porque introdujo NA por coerción. Quiero NA introducidas por coerción: ¿hay alguna manera de decirle "sí, esto es lo que quiero hacer". ¿O debería vivir con la advertencia?

¿O debería estar usando una función diferente para esta tarea?

Uso suppressWarnings():

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

Esto suprime las advertencias.

suppressWarnings()Ya ha sido mencionado. Una alternativa es convertir manualmente los caracteres problemáticos a NA primero. Para su problema particular, taRifx::destringhace exactamente eso. De esta manera, si obtiene alguna otra advertencia inesperada de su función, no se suprimirá.

> 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

En general, la supresión de advertencias no es la mejor solución, ya que es posible que desee recibir una advertencia cuando se proporcione alguna entrada inesperada.
La solución a continuación es un contenedor para mantener solo NA durante la conversión del tipo de datos. No requiere ningún paquete.

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

He modificado ligeramente la función jangorecki para el caso en el que podemos tener una variedad de valores que no se pueden convertir a un número. En mi función, se realiza una búsqueda de plantilla y, si no se encuentra la plantilla, se devuelve FALSE. antes de gperl, significa que necesitamos esos elementos vectoriales que no coinciden con la plantilla. El resto es similar a la as.numfunción. Ejemplo:

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