如何捕获整数（0）？

这是 R 打印零长度向量（整数 1）的方式，因此您可以测试 a 的长度是否为 0：

R> length(a)
[1] 0

可能值得重新考虑您用来确定所需元素的策略，但如果没有进一步的具体细节，很难提出替代策略。

---

如果它特别是零长度整数，那么你想要类似的东西

is.integer0 <- function(x)
{
  is.integer(x) && length(x) == 0L
}

检查它：

is.integer0(integer(0)) #TRUE
is.integer0(0L)         #FALSE
is.integer0(numeric(0)) #FALSE

您也可以为此使用 assertive。

library(assertive)
x <- integer(0)
assert_is_integer(x)
assert_is_empty(x)
x <- 0L
assert_is_integer(x)
assert_is_empty(x)
## Error: is_empty : x has length 1, not 0.
x <- numeric(0)
assert_is_integer(x)
assert_is_empty(x)
## Error: is_integer : x is not of class 'integer'; it has class 'numeric'.

---

也许跑题了，但是 R 有两个很好的、快速的和空感知函数来减少逻辑向量——any 和 all：

if(any(x=='dolphin')) stop("Told you, no mammals!")

---

受 Andrie 回答的启发，您可以使用 identical 并通过使用它是该对象类的空集并将其与该类的元素组合这一事实来避免任何属性问题：

attr(a, "foo") <- "bar"

identical(1L, c(a, 1L))
#> [1] TRUE

或更一般地说：

is.empty <- function(x, mode = NULL){
    if (is.null(mode)) mode <- class(x)
    identical(vector(mode, 1), c(x, vector(class(x), 1)))
}

b <- numeric(0)

is.empty(a)
#> [1] TRUE
is.empty(a,"numeric")
#> [1] FALSE
is.empty(b)
#> [1] TRUE
is.empty(b,"integer")
#> [1] FALSE

---

if ( length(a <- which(1:3 == 5) ) ) print(a)  else print("nothing returned for 'a'") 
#[1] "nothing returned for 'a'"

再想一想，我认为任何比 length(.) 更漂亮：

 if ( any(a <- which(1:3 == 5) ) ) print(a)  else print("nothing returned for 'a'") 
 if ( any(a <- 1:3 == 5 ) ) print(a)  else print("nothing returned for 'a'") 

---

您可以使用函数 same(x,y) 轻松捕获 integer(0)

x = integer(0)
identical(x, integer(0))
[1] TRUE

foo = function(x){identical(x, integer(0))}
foo(x)
[1] TRUE

foo(0)
[1] FALSE

---

另一个选项是 rlang::is_empty（如果您在 tidyverse 中工作，则很有用）

通过 library(tidyverse) 附加 tidyverse 时，似乎没有附加 rlang 命名空间 - 在这种情况下，您使用 purrr::is_empty，它只是从 rlang 包中导入的。

顺便说一句，rlang::is_empty 使用 user Gavin's approach。

rlang::is_empty(which(1:3 == 5))
#> [1] TRUE

---

isEmpty() 包含在 S4Vectors 基础包中。无需加载任何其他包。

a <- which(1:3 == 5)
isEmpty(a)
# [1] TRUE

---