r - 如何实现 S3 类的名称？

Question

如何为我的 S3 类实现通用函数名称，以便我可以“设置”对象的名称。

为了检索名称，我简单地将其实现为:

names.myobject <- function(x, ...){
   x$y
}

然后我可以做:

names(myobject)

但我不能用它来设置以下形式的名称:

names(myobject) <- "a"

我正在考虑这样的事情:

names.myobject <- function(x, newname){
   x$y <- newnames
}

如何实现名称的“集合”形式？

Answer 1

从函数中找出泛型的签名； “二传手”是 names<- .

> names
function (x)  .Primitive("names")
> `names<-`
function (x, value)  .Primitive("names<-")

names和names<-是所谓的原始函数，方法分派(dispatch)是用 C 实现的，因此通常表明您正在使用 S3 泛型(UseMethod("foo") 在泛型主体中)并不存在。

按照模式 generic.class = function... 实现方法。请记住，setter 方法的返回值必须是您已更新的对象

names.myobject <- function(x) x$y
`names<-.myobject` <- function(x, value) { x$y = value; x }