是否可以为多个插槽调用或设置值?
A<-setClass(Class="A",slot=c(name="character",type="character"))
a<-A()
slot(object,c("name","type"),check=T)
我必须编写自己的getSlot和setSlot方法吗?如何在 R5 中做到这一点?
AB <- setRefClass("AB", fields=c(name="character"),
methods=list(getName=AB.getName)
)
AB.getName<-function(object){
object$name
}
a<-AB(name="abc")
AB.getName(a)
这个答案适用于引用类。
让我们从最简单的定义开始 AB
,没有任何方法。
AB <- setRefClass(
"AB",
fields = list(
name = "character"
)
)
您可以像检索列表一样检索name
字段的值。
ab <- AB$new(name = "ABC")
ab$name
## [1] "ABC"
(ab$name <- "ABCD")
## [1] "ABCD"
可以自动生成访问器方法来获取和设置名称字段。
AB$accessors("name")
ab$getName()
ab$setName("ABCDE")
这真的毫无意义,因为它的行为与以前完全相同,但打字更多。 有用的是在设置字段时执行输入检查(或其他自定义行为)。 为此,您可以添加自己编写的setName
方法。
AB$methods(
setName = function(x)
{
if(length(x) > 1)
{
warning("Only using the first string.")
x <- x[1]
}
name <<- x
}
)
ab$setName(letters)
## Warning message:
## In ab$setName(letters) : Only using the first string.
在分配引用类模板时,也可以(通常更有用)定义此方法。
AB <- setRefClass(
"AB",
fields = list(
name = "character"
),
methods = list(
setName = function(x)
{
if(length(x) > 1)
{
warning("Only using the first string.")
x <- x[1]
}
name <<- x
}
)
)
对评论的回应:
是的,这有效,但是:
如果按names(AB$fields())
实现,getFieldNames
更易于维护。
在 setRefClass
中定义字段时,请使用列表。 例如,list(name="character", var2="character")
.
分配引用类的实例时,请使用 new
。 例如,AB$new(name="abc",var2="abc")
在 S4 中,默认的 initialize
方法允许写入
A <- setClass(Class="A", slot=c(name="character",type="character"))
a <- A(name="abc", type="def")
initialize(a, name="cde", type="fgh")
必须编写您自己的初始化方法(如果有的话 - 我认为通常最好避免它们)以允许这种使用。没有将 S4 表示形式转换为列表的默认方法。
您可以将这些想法合并到您自己的泛型/方法中
,例如setGeneric("values", function(x, ...) standardGeneric("values"))
setMethod("values", "A", function(x, ...) {
slts = slotNames(x)
lapply(setNames(slts, slts), slot, object=x)
})
setGeneric("values<-", function(x, ..., value) standardGeneric("values<-"))
setReplaceMethod("values", c(x="A", value="list"), function(x, ..., value) {
do.call("initialize", c(x, value))
})
跟
> a <- A(name="abc", type="def")
> values(a) = list(name="cde", type="fgh")
> values(a)
$name
[1] "cde"
$type
[1] "fgh"