在函数中强制返回类型

Question

使用 R6，我想强制方法返回特定的数据类型，这可能吗？

例如，考虑以下几点：

A = R6::R6Class("ClassA",
    public=list(
       getx = function() as.integer(1)
    )
)
B = R6::R6Class("ClassB",inherit=A,
    public = list(
       getx = function() "ABCDEF"
    )
)

如果我想强制函数 getx() 返回一个整数，A 的实例很好，但我想防止子类返回不同的类型，例如 B 的情况。换句话说，我希望一个函数在返回的内容上保持一致，而不管它实际在哪里实现。

Answer 1

您可以通过解决方法来做到这一点。直接是不可能的，间接使用第二个函数，是的。

当您在“ClassB”中定义新的“getx”函数时，这完全隐藏了 Class A 中的“getx”函数。R6 中没有机制确保任何返回值都必须通过特定函数。

现在 - 您可以执行以下操作：

让来自 ClassA 的 getx 成为公共函数。它所做的只是调用一个实际返回值的私有函数 p_getx，而 getx 只是将它强制转换为正确的类型。

然后，任何实现从 ClassA 继承的 ClassB 的用户都将保持公共函数 getx 不变，而是实现私有方法 p_getx。这是“克隆”方法使用 w.r.t 的模型。私有“deep_clone”方法。

一些示例代码

ClassA <- R6Class("ClassA",
                  public=list(
                      getx = function() {
                          return(as.character(private$p_getx()))
                      }
                      ),
                  private=list(
                      p_getx = function() {
                          return("ClassA")
                      }

                      )
                  )


ClassB <- R6Class("ClassB", inherit = ClassA,
                  private=list(
                      p_getx = function() {
                          return(factor("ClassB"))
                      }

                      )
                  )



obj_A <- ClassA$new()

obj_B <- ClassB$new()

有输出

> obj_A$getx()
[1] "ClassA"
> class(obj_A$getx())
[1] "character"
> obj_B$getx()
[1] "ClassB"
> class(obj_B$getx())
[1] "character"