r - 索引操作删除属性

Question

显然，用属性索引一个列表会返回一个没有属性的列表。

> l <- list(a=1:3, b=7)
> attr(l, 'x') <- 67
> l
$a
[1] 1 2 3

$b
[1] 7

attr(,"x")
[1] 67
> l[c('a','b')]
$a
[1] 1 2 3

$b
[1] 7

属性没了。是否可以在保留其属性的同时对列表进行索引？

Answer 1

这是这样一个子集函数。请注意，不要试图覆盖 'names' 属性，这一点很重要。

subset.with.attributes <- function(X, ...) {
 l <- X[...]
 attr.names <- names(attributes(X))
 attr.names <- attr.names[attr.names != 'names']
 attributes(l)[attr.names] <- attributes(X)[attr.names]
 return(l)
}

> subset.with.attributes(l, c('a','b'))
$a
[1] 1 2 3

$b
[1] 7

attr(,"x")
[1] 67

尝试简单地分配属性将导致子集失败，如果它实际上执行任何子集。

> subset.with.attributes(l, c('b'))
$b
[1] 7

attr(,"x")
[1] 67