強制によるNAの導入時に警告を回避する方法

私は通常、警告を受け取らないようにRをコーディングすることを好みますが、を使用as.numericして文字ベクトルを変換するときに警告を受け取らないようにする方法がわかりません。

例えば：

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

強制によってNAを導入したため、警告が表示されます。私は強制によって導入された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