Как поймать целое число (0)?

136

Допустим, у нас есть заявление, которое производит integer(0), например,

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

Какой самый безопасный способ поймать это?

r error-handling integer try-catch

— Роман Луштрик
источник

Мне не нравится идея рассматривать это как ошибку - фактически политика R не сворачивать определенные пустые объекты помогает избежать многих потоков восстановления после ошибок и, следовательно, приводит к гораздо более чистому коду.

— МБК

20

Не используйте который.

— Хэдли

1

Вы можете протестировать с помощью any. Он вернет FALSE либо для, либо which(1:3==5)для 1:3==5.

— IRTFM

@BondedDust Я пытался найти integer(0), который я произвел, используя whichв качестве примера.

— Роман Луштрик

6

Я знаю, что это старо, но не могли бы вы, Хэдли, обрисовать в общих чертах, почему бы не использовать which? Это было бы очень полезно для меня, чтобы избежать плохого кода.

— Кактус

162

Это способ, которым R печатает вектор нулевой длины (целое число), поэтому вы можете проверить aего на длину 0:

R> length(a)
[1] 0

Возможно, стоит переосмыслить стратегию, которую вы используете, чтобы определить, какие элементы вам нужны, но без дополнительных конкретных деталей трудно предложить альтернативную стратегию.

— Гэвин Симпсон
источник

19

Если это целые числа нулевой длины , то вы хотите что-то вроде

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

— Ричи Коттон
источник

3

Вы могли бы просто использовать, !length(x)а неlength(x)==0

— Джеймс

3

@Джеймс. Правда, но я не думаю, что в любом случае есть проблемы с производительностью, и length(x) == 0Lчитается мне более четко.

— Ричи Коттон,

@RichieCotton. Что случилось с 0L в отличие от 0? Я пробовал погуглить, но не нашел ничего подходящего. Извините за некромантию.

— eenblam

2

@Ben: добавление Lсуффикса к числу заставляет R хранить его как целое, а не как значение с плавающей запятой. См., Например, cran.r-project.org/doc/manuals/R-lang.html#Constants

— Ричи Коттон

Спасибо! Это сэкономило мне время.

— Андрей

12

Может быть, не по теме, но в R есть две приятные, быстрые и пустые функции для сокращения логических векторов - anyи all:

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

— МБк
источник

1

Да, было бы здорово, если бы было что-то вроде is.empty, потому что некоторые функции возвращают integer(0)вместо NAили NULL. Но пока ваш путь самый простой и работает векторно, что является большим преимуществом перед length(a).

— Ufos

7

Вдохновленный ответом Андри, вы можете использовать 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

— Джеймс
источник

Это не самый простой ответ, но, безусловно, самый простой и безопасный для начинающих.

— JASC

7

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

— IRTFM
источник