如何检查向量是否是单个 NA 值，没有长度警告且没有抑制

我有一个功能NA作为默认值，但如果没有NA应该是一个不限于大小 1 的字符向量。我有一个检查来验证这些，但是is.na当向量是字符向量时产生标准警告length大于1。

so_function <- function(x = NA) {
  if (!(is.na(x) | is.character(x))) {
    stop("This was just an example for you SO!")
  }
}

so_function(c("A", "B"))
#> Warning in if (!(is.na(x) | is.character(x))) {: the condition has length >
#> 1 and only the first element will be used

防止我提出的警告的一个选项是使用identical:

so_function <- function(x = NA) {
  if (!(identical(x, NA) | is.character(x))) {
    stop("This was just an example for you SO!")
  }
}

我的问题是，这个函数通常会将加载到 R 中的 Excel 工作表数据作为输入，并且NA由此产生的值通常是NA_character_, NA_integer_, and NA_real_, so identical(x, NA)经常FALSE当我真正需要它的时候TRUE.

对于更广泛的背景，我在为包创建的 S3 类中遇到了这个问题，下面的函数近似于我验证该类的多个属性的方式，也就是出现警告时。因此，我试图避免将抑制警告作为解决方案，因此有兴趣了解解决此问题的最佳实践。

Edit

为了使用例更清晰，这是验证类的属性，我想确保该属性是单个NA值，或任意长度的字符向量：

so_function(NA_character_) # should pass
so_function(NA_integer_) # should pass
so_function(c(NA, NA)) # should fail
so_function(c("A", "B")) # should pass
so_function(c(1, 2, 3)) # should fail

长度警告来自于使用if，它需要一个长度为 1 的向量，并且is.na这是矢量化的。

你可以使用any or all周围的is.na将其压缩为长度为 1 的向量，但可能存在边缘情况，它无法按您的预期工作，因此我将使用短路评估来检查它的长度是否为 1is.na check:

so_function <- function(x = NA) {
  if (!((length(x)==1 && is.na(x)) | is.character(x))) {
    stop("This was just an example for you SO!")
  }
}

so_function(NA_character_) # should pass

so_function(NA_integer_) # should pass

so_function(c(NA, NA)) # should fail
Error in so_function(c(NA, NA)) : This was just an example for you SO!

so_function(c("A", "B")) # should pass

so_function(c(1, 2, 3)) # should fail
Error in so_function(c(1, 2, 3)) : This was just an example for you SO!

另一种选择是使用NULL作为默认值。