S4类initialize方法中非槽参数使用问题求助

你遇到的报错是因为new()函数会在调用initialize方法之前先校验所有传入的参数：只要参数名不是类的槽名，就会直接抛出"invalid name for slot"错误。也就是说，你的initialize方法根本没机会执行，参数校验这一步就被拦下来了。

文档里提到的用...和callNextMethod，是用于子类继承父类时，把父类的槽参数传递给父类的initialize，不是用来处理这种自定义的非槽参数的。

如果一定要用initialize实现需求，你需要绕开new()的参数校验，直接调用initialize方法，同时在方法里兼顾两种初始化场景：

1. 普通用户传入字符串生成对象
2. 高级用户直接传入槽对应的内部对象

修改后的initialize方法示例：

setClass(
  Class = "myClass",
  slots = c(
    myString = "character"
  )
)

setMethod(
  "initialize",
  signature = "myClass",
  definition = function(.Object, string = "Hello", myString = NULL, ...) {
    # 高级用户直接传入槽值时，优先使用该值
    if (!is.null(myString)) {
      .Object@myString <- myString
    } else {
      # 普通用户传入字符串时，生成对应槽值
      .Object@myString <- paste0("My string is ", string)
    }
    validObject(.Object)
    .Object
  }
)

调用方式不能直接用new()传string参数，要改成：

# 普通用户用法
obj1 <- initialize(new("myClass"), string = "my string")

# 高级用户直接传内部对象用法
obj2 <- initialize(new("myClass"), myString = "直接传入的字符串")

不过更友好的方式还是用你已经实现的显式构造函数，它可以封装这些细节，让用户不用关心底层调用：

myClass <- function(string = NULL, myString = NULL) {
  if (!is.null(myString)) {
    new("myClass", myString = myString)
  } else if (!is.null(string)) {
    new("myClass", myString = paste0("My string is ", string))
  } else {
    new("myClass", myString = "My string is Hello")
  }
}

# 普通用户调用
obj1 <- myClass(string = "my string")
# 高级用户调用
obj2 <- myClass(myString = "直接传入的字符串")

内容的提问来源于stack exchange，提问作者SvetH