Comment attraper integer(0) ?

Question

Disons que nous avons une déclaration qui produit integer(0) par exemple

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

Quel est le moyen le plus sûr de l'attraper ?

Answer 1

C'est la façon dont R imprime un vecteur de longueur nulle (un entier), donc vous pourriez tester pour a étant de longueur 0 :

R> length(a)
[1] 0

Il peut être utile de repenser la stratégie que vous utilisez pour identifier les éléments suivants dont éléments que vous voulez, mais sans plus de détails spécifiques, il est difficile de suggérer une stratégie alternative.

Answer 2

Si c'est spécifiquement une longueur zéro nombres entiers alors vous voulez quelque chose comme

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

Vérifiez-le avec :

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

---

Vous pouvez également utiliser assertive pour ça.

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

Peut-être hors sujet, mais R propose deux fonctions agréables, rapides et tenant compte des vides pour réduire les vecteurs logiques -- any y all :

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

Answer 4

Inspiré par la réponse d'Andrie, vous pourriez utiliser identical et éviter tout problème d'attribut en utilisant le fait qu'il s'agit de l'ensemble vide de cette classe d'objet et le combiner avec un élément de cette classe :

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

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

Ou plus généralement :

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

Answer 5

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

En y réfléchissant, je pense que n'importe laquelle est plus belle que 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'")