gpt4 book ai didi

r - 修改 S3 对象而不返回它?

转载 作者:行者123 更新时间:2023-12-04 10:14:32 25 4
gpt4 key购买 nike

我是 R 中面向对象编程的新手,并且正在努力解决如何正确编写修改对象的函数。

这个例子有效:

store1 <- list(
apples=3,
pears=4,
fruits=7
)
class(store1) <- "fruitstore"
print.fruitstore <- function(x) {
paste(x$apples, "apples and", x$pears, "pears", sep=" ")
}
print(store1)
addApples <- function(x, i) {
x$apples <- x$apples + i
x$fruits <- x$apples + x$pears
return(x)
}
store1 <- addApples(store1, 5)
print(store1)

但我想应该有一种更简洁的方法来做到这一点,而无需返回整个对象:
addApples(store1, 5)  # Preferable line...
store1 <- addApples(store1, 5) # ...instead of this line

在 R 中编写修改函数的正确方法是什么? “<<-”?

更新:感谢大家在 R 中成为 OOP 的 Rosetta Stone。非常有用。
我试图解决的问题在流程方面非常复杂,因此引用类的刚性可能会给结构带来帮助。我希望我能接受所有的回答作为答案,而不仅仅是一个。

最佳答案

这是一个引用类实现,正如其中一条评论中所建议的那样。基本思想是建立一个名为 Stores 的引用类,它具有三个字段: applespearsfruits (编辑为访问器方法)。 initialize 方法用于初始化一个新的 store,addApples 方法将苹果添加到 store 中,而 show 方法相当于其他对象的 print

Stores = setRefClass("Stores", 
fields = list(
apples = "numeric",
pears = "numeric",
fruits = function(){apples + pears}
),
methods = list(
initialize = function(apples, pears){
apples <<- apples
pears <<- pears
},
addApples = function(i){
apples <<- apples + i
},
show = function(){
cat(apples, "apples and", pears, "pears")
}
)
)

如果我们初始化一个新的 store 并调用它,这就是我们得到的
FruitStore = Stores$new(apples = 3, pears = 4)
FruitStore

# 3 apples and 4 pears

现在,调用 addApples 方法,让我们向商店添加 4 个苹果
FruitStore$addApples(4)
FruitStore

# 7 apples and 4 pears

编辑。根据 Hadley 的建议,我更新了我的答案,以便 fruits 现在是一个访问器方法。当我们向商店添加更多 apples 时,它​​会保持更新。谢谢@hadley。

关于r - 修改 S3 对象而不返回它?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21243359/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com