5

当我没有锁定其中一个字段时，我可以复制 R5 引用类，但如果其中一个字段被锁定，它不会复制。示例代码如下（注释掉了锁定调用）。我的问题：为什么我不能使用 copy() 方法制作带有锁定字段的实例副本？

example <- setRefClass('example',
    fields = list(
        count = 'numeric',
        data = 'data.frame', 
        d.accessor = function(x) {
            if ( !missing(x) ) 
                data <<- x
            else
                .self$data 
        }
    ),
    methods = list(
        initialize = function( data ) {
            if (!missing( data ))
                d.accessor <<- data
            count <<- 0
        },
        finalize = function()
            print('Bye Bye'),
        accumulate = function(x)
            count <<- count + x
    )
)

#example$lock('data') # write-1, read-many
instance <- example$new() # instantiation
df <- data.frame(x=1, y=2)# example df
instance$d.accessor <- df # 1st set - okay!
copyInst <- instance$copy()
4

1 回答 1

1

这是因为当你复制实例时，字段数据会被分配两次，这是被锁禁止的。它将首先通过将instance$data值复制到中来分配copyInst$data，然后在复制instance$d.accessor到时进行分配copyInst$d.accessor，因为d.accessor它是一个 getter/setter，并且按照您定义它的方式，分配给它会导致分配给$data。

插图：

example$lock('data') # write-1, read-many
instance <- example$new() # instantiation
df <- data.frame(x=1, y=2)# example df
instance$data <- df # 1st assignement: OK
instance$d.accessor <- df #snd assignemnt: ERROR
Error: invalid replacement: reference class field ‘data’ is read-only
于 2013-07-03T17:04:49.953 回答