在 R 中创建一个 S4 类对象，其中一些参数使用省略号传递

Question

如何在命名参数的同时使用传递给使用省略号的函数的一些参数来创建 S4 类的新对象？

例子：

foo <- function(a, ...){

  cur_args <- lapply(match.call(expand.dots=TRUE)[-1], deparse)

  args_to_keep <- names(cur_args) %in%  slotNames("myClass1")

  newClassObj <- new("myClass1", what can go here??? )
}

有什么方法可以使用 do.call 并遵守类的槽类型/保留传递给 foo 的类型？

newClassObj <- do.call( "new", as.list( c("Class"="myClass1", cur_args[args_to_keep] )) )

Answer 1

你有正确的想法， 您只需要正确创建传递给new 的参数列表：

setClass("A", slots=c(x="numeric"))
foo <- function(...) {
    dots <- list(...)
    valid_slots <- dots[intersect(names(dots), slotNames("A"))]
    do.call(new, c(list(Class="A"), valid_slots))
}

> foo(x=1, y=2)
An object of class "A"
Slot "x":
[1] 1

c 可用于将列表相互附加， 所以你只需要将Class="A" 包装在一个列表中。