2

是否可以调用或设置多个插槽的值？

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)
4

2 回答 2

4

在 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"
于 2013-09-05T13:17:56.650 回答
4

这个答案适用于参考类。

让我们从最简单的定义开始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
    }
  )
)

回复评论：

是的，这有效，但是：

getFieldNames如果实现为 . 则更易于维护names(AB$fields())。

在 中定义字段时setRefClass，请使用列表。例如，list(name="character", var2="character")。

分配引用类的实例时，使用new. 例如，AB$new(name="abc",var2="abc")

于 2013-09-05T13:24:03.723 回答