R:如何为R6类定义多个构造函数？

Question

我目前正在开发一个项目,我需要在R中构建一个R6类,可以通过多种方式进行初始化.我想知道最好的方法是什么.是否有可能使$new()功能过载？或者我需要定义辅助函数？

作为一个激励性的例子:我希望有一个R6类的两个构造函数,MyClass其中一个字段names可以使用向量variable_names或整数进行初始化n_variables(在这种情况下,它初始化一个默认的名称向量).

功能应该像这样工作:

#define the class (only has a constructor that accepts a vector of names)
myClass <- R6Class("myClass",
                   public = list(
                     names = NA,
                     initialize = function(names) {
                       if (!missing(names)) self$names <- names
                     })
)

#create a test object using a vector of names
variable_names = c("x","y")
a = myClass$new(variable_names)
a$names
#> [1] "x y"

#everything after here does not actually work (just to illustrate functionality)
n_variables = 2;
b = myClass$new(n_variables)
b$names
#> [1] "v1 v2"

我看了一下介绍性的小插图,但似乎没有一个明确的方法来做到这一点.

理想情况下,我要寻找一个解决方案,不强迫我的名字命名的参数(即所以我没有做这样的事情myClass$new(names=variable_names)),并让我轻松地检查输入是有效的.

Answer 1

可能的方法是对构造函数使用点-点-点（省略号）参数，该参数允许您将任意数量的参数传递给函数。之后，您必须将“ ...”转换为列表并解析输入参数。

例如，假设我们要通过Arity重载构造函数。

myClass <- R6Class("myClass",
   public = list(
      name = NA,
      age = NA,
      favouriteFood = NA,
      # Constructor overloaded by arity
      initialize = function(...) {
         arguments <- list(...)
         switch(nargs(),
            # one input argument
            {self$name <- arguments[[1]]},
            # two input arguments
            {self$name <- arguments[[1]]
            self$age <- arguments[[2]]},
            # three input arguments
            {self$name <- arguments[[1]]
            self$age <- arguments[[2]]
            self$favouriteFood <- arguments[[3]]}
         )
         print(self)
      })
)

现在调用构造函数可以使我们

> a = myClass$new("john")
<myClass>
  Public:
    age: NA
    clone: function (deep = FALSE) 
    favouriteFood: NA
    initialize: function (...) 
    name: john
> a = myClass$new("john",35)
<myClass>
  Public:
    age: 35
    clone: function (deep = FALSE) 
    favouriteFood: NA
    initialize: function (...) 
    name: john
> a = myClass$new("john",35,"pasta")
<myClass>
  Public:
    age: 35
    clone: function (deep = FALSE) 
    favouriteFood: pasta
    initialize: function (...) 
    name: john