r - 使访问不存在的列表元素成为错误

Question

在 R 中，可以使用 $ 访问列表元素.当访问未包含在列表中的字段时，结果值仅为 NULL .这在我进一步使用对象的部分代码中是有问题的。拿这个代码:

l <- list(foo = 1, bar = 2)
print(l$foobar)

输出将只是 NULL并且没有错误和警告。我知道这可能需要这样才能分配新元素( l$foobar <- 3 )可以工作。

如果列表中的字段不存在，有什么方法可以使读取访问成为硬错误吗？

Answer 1

一个极端的选择是重载 $运算符，然后为检查名称的列表对象定义一个 S3 方法。

`$` <- function(x, y) { 
  UseMethod("$")
}

`$.list` <- function(x, y) {
  ylab <- deparse(substitute(y))
  stopifnot(ylab %in% names(x))
  do.call(.Primative("$"), list(x, ylab))
}

然后:

myList <- list('a' = pi)

> myList$b
Error: ylab %in% names(x) is not TRUE

> myList$a
3.141593

当然，您必须确保设置以下内容:

`$.default` <- base::`$`

避免与“$”运算符的现有用法发生任何冲突

如果您希望在应用于列表时继续使用带有“$”的部分匹配，您可以使用 stopifnot(length(pmatch(ylab, names(x)))>0) .