1

使用 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 的情况。换句话说，我希望函数具有一致性在它返回的内容中，无论它实际在哪里实现。

4

1 回答 1

1

您可以使用解决方法来做到这一点。直接不可能，间接使用第二个功能，它是。

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

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

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

然后，任何实现从 ClassA 继承的 ClassB 的用户都将保持公共函数 getx 不变，而是实现私有方法 p_getx。这是 'clone' 方法使用 wrt 私有 '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"
于 2016-05-27T13:53:47.500 回答