我尝试动态创建R6类的初始化函数。首先,我创建解锁的类定义:
cls <- R6::R6Class(
name,
inherit=TPayload,
lock_objects=FALSE,
public=list(
module=class(tail(Parser$thrift_stack, 1)[[1]])[[1]],
ttype=ttype
))
在我添加初始化函数后的某个地方:
cls$set("public", 'initialize', init_func_generator(cls, default_spec))
其中init_func_generator:
init_func_generator = function(cls, spec) {
func = function(...) {
cat('Hello\n')
}
return(func)
}
执行简单初始化函数时,我创建一个对象。
cli$new(name='abc')
但是当我尝试从创建的'initialize'的外部范围访问'spec'变量时:
init_func_generator = function(cls, spec) {
func = function(...) {
for(s in spec) {
cat(str(s))
}
}
return(func)
}
我明白了:
* object 'spec' not found
我试图实现的可能吗?
我重写了我的解决方案:
init_func_generator = function(cls, spec) {
if(length(spec) == 0) return(function() { })
args <- alist()
for(s in spec) {
args[[s[[1]]]] <- s[[2]]
}
func <- function() {
argg <- as.list(environment())
for(arg_name in names(argg)) {
self[[arg_name]] <- argg[[arg_name]]
}
}
formals(func) <- args
return(func)
}
所以现在我能做到:
print(s$Set$new(a_set=1)$a_set)
[1] 1
print(s$Set$new()$a_set)
[1] NA
当这种情况下的规格是[('a_set',NA)]