Question

我在R参考类中遇到过一些我想要解决的行为。在下面的代码中，引用类B中有两个引用类A的字段。

在调用B的initialize()方法之前，B中的这些字段似乎被实例化（可能两次），并且引用类A的零参数（默认）版本。然后在B的初始化过程中用实例A的正确版本替换这些实例。问题是，如果我使用来自B的实例生成器的lock()，则A中的初始空实例化不能替换为B.另一个问题是引用类A在initialize中需要一个默认值[或者缺少（c）测试]。

帮助 - 建议 - 等等。

A <- setRefClass('A',
    fields = list(
        count = 'numeric'
    ),

    methods = list(
        initialize = function (c=0) {
            cat('DEBUG: A$initialize(c); where c=');  cat(c); cat('\n')
            count <<- c
        }
    )
)

instance.of.A <- A$new(10)
str(instance.of.A)

B <- setRefClass('B',
    field = list(
        a = 'A',
        b = 'A'
    ),

    methods = list(
        initialize = function(c) {
            a <<- instance.of.A
            b <<- getRefClass('A')$new(c)
        }
    )
)

instance.of.b <- B$new(100)
str(instance.of.b)

Answer 1

以下是两种可能的解决方案：

不要设置字段属性：

B <- setRefClass('B',
    methods = list(
        initialize = function(c) {
          .self$a = instance.of.A
          .self$b =getRefClass('A')$new(c)
        }
     )
 )

设置字段，但使用ANY类：

B <- setRefClass('B',
    field = (a="ANY", b="ANY"), 
    methods = list(
        initialize = function(c) {
          a <<- instance.of.A
          b <<- getRefClass('A')$new(c)
        }
     )
 )

这两种解决方案的缺点是类型未在a和b中强制执行，即

 B$a = "Fred"

现在可以。

Answer 2

借鉴上述内容，我使用的解决方案是（由于类型检查有点长）：

A <- setRefClass('A',
    fields = list(
        count = function(x) {
            if (!missing(x)) {
                if(class(x) != 'numeric')
                    stop('Class A: count set by non-number')
                .self$count.private <- x
            }
            .self$count.private
        }
    ),

    methods = list(
        initialize = function (c=0) {
            cat('DEBUG: A$initialize(c); where c=');  cat(c); cat('\n')
            count <<- c
        }
    )
)

instance.of.A <- A$new(10)
str(instance.of.A)

B <- setRefClass('B',
    field = list(
        a = function(x) {
            if (!missing(x)) {
                if(!inherits(x, 'envRefClass') || class(x)[1] != 'A')
                    stop('Class B: expecting instance of class A')
                .self$a.private <- x
            }
            .self$a.private
        },
        b = function(x) {
            if (!missing(x)) {
                if(!inherits(x, 'envRefClass') || class(x)[1] != 'A')
                    stop('Class B: expecting instance of class A')
                .self$b.private <- x
            }
            .self$b.private
        }
    ),

    methods = list(
        initialize = function(c) {
            a <<- instance.of.A
            b <<- getRefClass('A')$new(c)
        }
    )
)

instance.of.b <- B$new(100)
str(instance.of.b)

引用类中引用类的实例化 - lock（）和immutability的问题

2 个答案: