r - 参考类字段列表中的多个可接受类

Question

例如：

Mycls = setRefClass(
    "Mycls",
    fields = list(
    # this is just a mock up
    colorvec = "numeric" | "factor" | "matrix"
    )
)

在这个例子中，我想允许colorvec是数字或因子或矩阵。有没有办法做到这一点？

Answer 1

三种可能。

1. 使用ANY类型。

   m2 = setRefClass("m2",
     fields = list(x="ANY")
   )
   

   顾名思义，它允许您拥有任何类型。

2. 创建另一个只接受numerics//的类factors：matrices

   setClass("mult", representation(x="ANY"))
   setValidity("mult",
           function(object) 
                is.numeric(object@x) || is.factor(object@x) || is.matrix(object@x)
            )
   
   m3 = setRefClass("m3", fields = list(x="mult"))
   

   所以

   bit = new("mult", x=10)
   m3$new(x=bit)
   

3. 有一个函数作为您的输入并检查类型。请注意，该x字段实际上并不存储任何数据，它只是检查并返回internal值。您可以创建一个简单的show方法来隐藏该internal字段。

   m4 = setRefClass("m4",  
                fields=list(x = function(y){
                  if(!missing(y) && !is.null(y)) {
                    if(!(is.numeric(y))){
                      stop("Wrong type")
                    }  
                    internal <<- y
                  } else internal}
                  , 
                internal="ANY"
                ))
   
   m4$new(x=10)
   m4$new(x="10")