用 Class 实例初始化 R6 class 并返回相同的 Class

Question

给定一个 R6 class Class1及其initialize function，我希望能够传递相同 class 的实例并直接返回它。

像这样的东西：

if("Class1" %in% class(x)) x
else Class1$new(x)

但是在 R6 class 的initialize function 中，应该像这样工作

# This script does not work
# Definition of the class
Class1 = R6::R6Class("Class1",
                     public=list(
                       initialize = function(x){
                         # This line does not work
                         if("Class1"%in%class(x)) return(x)
                       }
                     ))
# Initiate an instance from scratch
foo = Class1$new()
# Initiate an instance through another instance
bar = Class1$new(foo)
# The two should be the same
identical(foo, bar)
#> TRUE

Answer 1

在 R6 的当前 state 下，这似乎是不可能的。 检查原始代码 github.com/r-lib/R6/blob/master/R/new.R。 最重要的是应用初始化的第 154 行和返回 public_bind_env 的第 194 行。 问题是，即使使用超级分配，我认为我们也无法覆盖它，因为所有东西都是从具有自己地址的新空环境构建的。 这种使用包装器的解决方案在市场上广泛使用，它正在做它应该做的事情：

class1 <- function(x = NULL) {
  
  if(inherits(x, "Class1")) x else Class1$new(x)
    
}

Class1 = R6::R6Class("Class1",
                     public=list(
                       initialize = function(x = NULL){
                       }
                     ))
# Initiate an instance from scratch
foo = class1()
# Initiate an instance through another instance
bar = class1(foo)
# The two should be the same
identical(foo, bar)
#> TRUE