5

我刚刚注意到可以构建多个元素具有相同名称的列表，例如：

l <- list(a=1, a="a")

当元素名称用于提取列表元素时，会返回与名称匹配的第一个元素：l$a返回时1不会发出警告。

我通常按​​名称提取列表元素。现在我担心我会不小心创建包含多个具有相同名称的元素的列表（例如通过尝试通过公共索引合并列表），访问错误的列表元素，并且永远不知道有问题。

每次使用列表时，我都可以测试它是否有多个同名元素：

length(unique(names(l)))==length(names(l))

...但这很麻烦。有没有更好的方法来处理这个潜在的问题？

4

1 回答 1

3

并不是说我会推荐这个，但这里有一种可能不太麻烦的方法来确保您不会从包含重复名称的列表中提取元素：

## Define a method for `[[` that first checks the list x for repeated names
`[[.CC` <- function(x,i,j,...,exact=TRUE) {
    if(!length(unique(names(x))) == length(names(x))) {
        stop("List contains multiple elements with the same name")
    } else {
        NextMethod()
    }
}

## Write  a function that prepends the class that triggers the method above
CC <- function(X) {
    class(X) <- c("CC", class(X))
    X
}

## Try it out
l <- list(a=1, a="a")
m <- list(a=1, b="a")

CC(l)[["a"]]
# Error in `[[.CC`(CC(l), "a") : 
#   List contains multiple elements with the same name

CC(m)[["a"]]
# [1] 1
于 2012-12-10T23:12:21.113 回答