7

我目前正在做一个项目，我需要在 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)），并且可以让我轻松检查输入是否有效。

4

1 回答 1

7

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

例如假设我们想通过 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
于 2016-12-28T18:52:24.433 回答