r - NA 类型的通用函数

Question

b当参数为 NA时，我想对函数进行特殊处理。我不想这样做，if所以我更喜欢通用。这是我的尝试：

foo <- function(x) {
  UseMethod("foo", x)
}

foo.numeric <- function(x) {
  print("numeric")
}

foo.default <- function(x) {
  print("def")
}

foo.NA <- function(x) {
  print("na")
}

现在，当我跑步时，foo(NA)我想跑步foo.NA()但foo.default()被执行。

标签： r