显然，用属性索引列表会返回不带属性的列表。
> 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
属性没了。是否可以在保留列表属性的同时对列表进行索引？
这是这样一个子集函数。请注意，不要尝试覆盖“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
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
