检查对象是否存在于指定路径的多层列表中

Question

我有一个多级列表 l 具有任意数量的级别和条目。举一个简单的例子：

l <- list(a = 1,
          b = list(x = 2, y = 3),
          c = list(dog = 5, cat = list(fish = 3, mouse = 10))
         )

在我的软件包中，用户通过一个“地址”，该“地址”指定了此列表中的对象。地址作为字符串传递：

address = "$c$cat$fish"

这不包括列表本身的名称。

我编写了一个函数，该功能检查地址是否为“有效”，从某种意义上说我想检查指定地址是否存在对象。该函数的主要实质如下：

# this is the call to evaluate, as a string
expr_str <- paste0("address_value <- l", address)

# evaluate the call
eval(str2lang(expr_str))

if(is.null(address_value)){
   warning("Address is NULL or not found in list")
}

现在，这起作用（尽管可能有一种更优雅的方法可以做到这一点）。但是问题在于我在CMD检查中获得了注释，因为 address_value 没有可见的绑定，因为它是在 eval（）中创建的。

我想摆脱注释，但我不确定如何在不使用 eval（）的情况下检索 address 上的任何内容（或不是）。

谁能帮助解决这个问题？

Answer 1

您是否考虑过使用 purrr :: Pluck ？我认为这与您的要求相符：

l %>% pluck('c', 'cat', 'fish')

[1] 3

Answer 2

的分配可以是 eval> eval 的 的分配，该可以避免CMD检查中未宣布的变量NAG。

check_address <- function(address) {
  
  expr_str <- paste0("l", address)
  
  # evaluate the call
  address_value <- eval(str2lang(expr_str))
  
  if(is.null(address_value)){
    warning("Address is NULL or not found in list")
  }
  
  address_value
}

这导致：

check_address("$c$cat$fish")
#> [1] 3

check_address("$c$cat$banana")
#> NULL
#> Warning message:
#> In check_address("$c$cat$banana") : Address is NULL or not found in list