Question

我有使用S4个对象及其插槽的经验，所以我知道如何访问特定的插槽和子插槽。我想学习的是如何以unlist拆分S3列表的方式对对象进行“去插槽”。
我的直接目标是让我的一个玩具的S4对应物返回一个物体的元素数量：

lssize<-function(items){
            if (any(sapply(sapply(items,get),typeof)=='closure')){
        warning('Closures in list, will ignore.')
        items<-items[(sapply(sapply(bar,get),typeof)=='closure')!=TRUE]
    }
    sizes<-sapply(sapply(sapply(sapply(items,get,simplify=F), unlist,simplify=F), as.vector,simplify=F), length)
    return(sizes)
    }

（没有公平地笑我的代码:-)）。我希望不必写一些递归例程，一次提取一个插槽来转换它们。

编辑：我知道object.size将返回bytecount;不是我在这之后的事。

Answer 1

（使用slotName和slot修改后更接近之前删除的答案，而不是依赖attributes）。我们可以编写一个测试实例是否是S4对象的函数，如果是，则将所有插槽作为列表提取并递归

f = function(x) {
    if (isS4(x)) {
        nms <- slotNames(x)
        names(nms) <- nms
        lapply(lapply(nms, slot, object=x), f)
    } else x
}

然后

A = setClass("A", representation(x="numeric"))
B = setClass("B", representation(a="A", b="numeric"))
f(B())

到达一个我们可以用于任何目的的普通旧列表。

$a
$a$x
numeric(0)

$a$class
[1] "A"
attr(,"package")
[1] ".GlobalEnv"


$b
numeric(0)

$class
[1] "B"
attr(,"package")
[1] ".GlobalEnv"

可能需要增强

f，例如，通过setOldClass处理由S3类生成的NULL值或S4类。 validObject的代码将是我选择寻找更全面遍历的地方。

概括可能会使访问者按照

的方式进行

visitLeavesWith <-
    function(object, FUN, ...)
{
    f = function(x) {
        if (isS4(x)) {
            slots <- setNames(slotNames(x), slotNames(x))
            lapply(lapply(slots, slot, object=x), f)
        } else FUN(x, ...)
    }
    f(object)
}

如，

visitLeavesWith(B(), length)

是否有一个等同于unlist（）的S4？

1 个答案: