Как проверить, существует ли элемент списка?

Проблема

Я хотел бы проверить, существует ли элемент списка, вот пример

foo <- list(a=1)
exists('foo') 
TRUE   #foo does exist
exists('foo$a') 
FALSE  #suggests that foo$a does not exist
foo$a
[1] 1  #but it does exist

В этом примере я знаю, что foo$a существует, но тест возвращает FALSE.

Я посмотрел в ?exists и обнаружил, что with(foo, exists('a') возвращает TRUE, но не понимаю, почему exists('foo$a') возвращает FALSE.

Вопросы

Почему exists('foo$a') возвращает FALSE?
Используется ли with(...) предпочтительный подход?

Ответ 1

Это на самом деле немного сложнее, чем вы думаете. Поскольку список может (с некоторым усилием) содержать элементы NULL, может быть недостаточно, чтобы проверить is.null(foo$a). Более строгим критерием может быть проверка того, что имя действительно определено в списке:

foo <- list(a=42, b=NULL)
foo

is.null(foo[["a"]]) # FALSE
is.null(foo[["b"]]) # TRUE, but the element "exists"...
is.null(foo[["c"]]) # TRUE

"a" %in% names(foo) # TRUE
"b" %in% names(foo) # TRUE
"c" %in% names(foo) # FALSE

... и foo[["a"]] безопаснее, чем foo$a, поскольку последний использует частичное совпадение и, следовательно, может также соответствовать более длинному имени:

x <- list(abc=4)
x$a  # 4, since it partially matches abc
x[["a"]] # NULL, no match

[UPDATE] Итак, вернемся к вопросу, почему exists('foo$a') не работает. Функция exists проверяет только, существует ли переменная в среде, а не в том случае, если существуют части объекта. Строка "foo$a" интерпретируется как литературная: есть ли переменная, называемая "foo $a"?... и ответ FALSE...

foo <- list(a=42, b=NULL) # variable "foo" with element "a"
"bar$a" <- 42   # A variable actually called "bar$a"...
ls() # will include "foo" and "bar$a" 
exists("foo$a") # FALSE 
exists("bar$a") # TRUE

Ответ 2

Лучший способ проверить именованные элементы - использовать exist(), однако приведенные выше ответы не используют функцию правильно. Вам нужно использовать аргумент where, чтобы проверить переменную в списке.

foo <- list(a=42, b=NULL)

exists('a', where=foo) #TRUE
exists('b', where=foo) #TRUE
exists('c', where=foo) #FALSE

Ответ 3

Одним из решений, которое еще не появилось, является использование длины, которая успешно обрабатывает NULL. Насколько я могу судить, все значения, кроме NULL, имеют длину больше 0.

x <- list(4, -1, NULL, NA, Inf, -Inf, NaN, T, x = 0, y = "", z = c(1,2,3))
lapply(x, function(el) print(length(el)))
[1] 1
[1] 1
[1] 0
[1] 1
[1] 1
[1] 1
[1] 1
[1] 1
[1] 1
[1] 1
[1] 3

Таким образом, мы могли бы создать простую функцию, которая работает как с именованными, так и с пронумерованными индексами:

element.exists <- function(var, element)
{
  tryCatch({
    if(length(var[[element]]) > -1)
      return(T)
  }, error = function(e) {
    return(F)
  })
}

Если элемент не существует, он вызывает условие вне пределов, захваченное блоком tryCatch.

Ответ 4

Небольшая модифицированная версия @salient.salamander, если вы хотите проверить полный путь, это можно использовать.

Element_Exists_Check = function( full_index_path ){
  tryCatch({
    len_element = length(full_index_path)
    exists_indicator = ifelse(len_element > 0, T, F)
      return(exists_indicator)
  }, error = function(e) {
    return(F)
  })
}

Ответ 5

Вот сравнение производительности предлагаемых методов в других ответах.

> foo <- sapply(letters, function(x){runif(5)}, simplify = FALSE)
> microbenchmark::microbenchmark('k' %in% names(foo), 
                                 is.null(foo[['k']]), 
                                 exists('k', where = foo))
Unit: nanoseconds
                     expr  min   lq    mean median   uq   max neval cld
      "k" %in% names(foo)  467  933 1064.31    934  934 10730   100  a 
      is.null(foo[["k"]])    0    0  168.50      1  467  3266   100  a 
 exists("k", where = foo) 6532 6998 7940.78   7232 7465 56917   100   b

Если вы планируете использовать этот список в качестве быстрого словаря, доступного много раз, то подход is.null может быть единственным жизнеспособным вариантом. Я предполагаю, что это O (1), а подход %in% - O (n)?

Ответ 6

Используйте purrr::has_element для проверки значения элемента списка:

> x <- list(c(1, 2), c(3, 4))
> purrr::has_element(x, c(3, 4))
[1] TRUE
> purrr::has_element(x, c(3, 5))
[1] FALSE