r - 使用具有活动绑定的引用类时,求值嵌套太深
问题描述
可重现的例子:
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)
的时候,其实是在尝试调用主动绑定$nrow()
,而不是基函数。替换base::nrow(.self$fam)
为预期的作品。