Як перевірити, чи існує елемент списку?

Проблема

Я хотів би перевірити, чи існує елемент списку, ось приклад

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(...)кращого підходу?

Це насправді трохи складніше, ніж ви могли подумати. Оскільки список насправді (з певними зусиллями) може містити елементи 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

[ОНОВЛЕННЯ] Отже, повернемося до питання, чому 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

Найкращий спосіб перевірити названі елементи - це використовувати exist(), однак наведені вище відповіді не використовують функцію належним чином. Вам потрібно використовувати whereаргумент для перевірки змінної в списку.

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

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

Ось порівняння ефективності запропонованих методів в інших відповідях.

> 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)?

Невелика модифікована версія @ 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)
  })
}

Одне рішення, яке ще не з'явилося, - це використання довжини, яка успішно обробляє 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.

rlang::has_name() може це зробити також:

foo = list(a = 1, bb = NULL)
rlang::has_name(foo, "a")  # TRUE
rlang::has_name(foo, "b")  # FALSE. No partial matching
rlang::has_name(foo, "bb")  # TRUE. Handles NULL correctly
rlang::has_name(foo, "c")  # FALSE

Як бачите, він по суті обробляє всі випадки, в яких @Tommy показав, як обробляти базу R і працює для списків з неназваними елементами. Я б все-таки рекомендував, exists("bb", where = foo)як було запропоновано в іншій відповіді для читабельності, але has_nameце альтернатива, якщо у вас є елементи без назви.

Використовуйте 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