可重现的示例:
bed2_RC <- methods::setRefClass(
"bed2",
fields = list(
.fam = "data.frame",
#### Active bindings
fam = function() {
if (ncol(.self$.fam) == 0) {
.self$.fam <- datasets::iris
}
.self$.fam
},
nrow = function() print(nrow(.self$fam))
)
)
bed2 <- function() new(Class = "bed2")
bed2()
错误消息:
Error: evaluation nested too deeply: infinite recursion / options(expressions=)?
Error during wrapup: evaluation nested too deeply: infinite recursion / options(expressions=)?
我不明白为什么这里会发生无限循环。
最佳答案
嗯,当使用nrow(.self$fam)
时,它实际上尝试调用主动绑定(bind)$nrow()
,而不是基本函数。替换为 base::nrow(.self$fam)
可以按预期工作。
关于r - 使用带有主动绑定(bind)的引用类时,求值嵌套太深,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58167547/