R语言S7类：方法内设置对象属性无法持久生效怎么办？

问题核心是R的对象传递机制：S7对象属于不可变类型，方法中修改的是传入对象的局部副本，若不返回修改后的对象并重新赋值，原对象不会被更新。

修正后的代码 #

library(S7)

Dog <- new_class("Dog", properties = list(
  name = class_character
))
set_dog_name <- new_generic("set_dog_name", "x")
method(set_dog_name, Dog) <- function(x, new_name) {
  x@name <- new_name
  print(x@name) 
  x  # 显式返回修改后的对象
}
dog <- Dog(name="Spot")
dog <- set_dog_name(dog, "Dot")  # 重新赋值接收修改后的对象
print(dog@name) 

运行结果 #

[1] "Dot"
[1] "Dot"

关键说明 #

• S7遵循R的「副本修改」规则：函数内部对参数的修改仅作用于局部副本，必须显式返回修改后的对象才能传递出去。
• 调用方法时，需要将返回的新对象重新赋值给原变量，外部才能看到属性的变化。

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