如何捕获整数(0)？

Question

假设我们有一个产生的陈述integer(0),例如

 a <- which(1:3 == 5)

抓住这个最安全的方法是什么？

Answer 1

这是R打印零长度向量(整数1)的方式,因此您可以测试a长度为0的长度:

R> length(a)
[1] 0

这可能是值得重新考虑你正在使用识别策略,其想要的元素,但没有进一步的具体细节,也很难提出一种替代策略.

Answer 2

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

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'.

Answer 3

也许偏离主题,但R具有两个漂亮,快速和空知识的功能,用于减少逻辑向量 - any和all:

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

Answer 4

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'") 

Answer 5

受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