引数で渡した値が数値に変換可能かどうか調べる関数

ググってもひっかからなかったので、自作。警告メッセージをsuppressWarnings関数で止めてるのがミソ。
このくらい、既存のRの関数でもあるんじゃないかなーどっかにあるんじゃないかなー（チラッチラッ

could_be_numeric <- function(value){!is.na(suppressWarnings(as.numeric(value)))}

使用例

> could_be_numeric(123)
[1] TRUE
> could_be_numeric("123")
[1] TRUE
> could_be_numeric("ABC")
[1] FALSE