带标量（非向量）返回值的S4方法

Question

我想定义返回a的S4方法 标量返回值. 。我的意思是按标量值，相反的矢量。

setGeneric("getScalar", function(value,  ...) 
  standardGeneric("getScalar")
)
setMethod("getScalar", 
          signature(value = "ANY"),
          def = function(value, ...) getScalar(value,...), ## call external function
          valueClass = "atomic" ### atomic is false, what should I do ?
)

我无法通过其输出来覆盖该方法，我的意思是我不能定义许多具有相同签名的功能，具有不同的返回valueclass：数字，整数，角色，..那么我该怎么做？

编辑 给出更多上下文：

我认为这是原子在这里令人困惑。我的意思是，按标量为数字值或布尔值或字符，长度为1。为了提供更多上下文，我的包装中将有3个功能：

dbGetQuery   :return a list/data.frame : i.e some table rows
dbGetScalar  :return a scalar value  : i.e count(*),table_name,..
dbGetNoQuery :return nothing          : update/insert actions

它是DBI接口的扩展。

Edit2

我们可以假设标量是长度1的向量。但是我不能使用S4表达此条件。在C＃或C中，我会写

double[]       // vector
double        // scalar

也许我应该更改功能的名称。

Answer 1

一种可能性是在方法调度后检查返回类型的值

setGeneric("getScalar", function(x, ...) {
    value <- standardGeneric("getScalar")
    if (!is.atomic(value) || length(value) != 1L)
        stop("not a scalar atomic vector")
    value
})

setMethod(getScalar, "ANY", function(x, ...) x)

另一种可能性是定义一个“标量”类，并在执行约束的基类上检查有效性

.Scalar <- setClass("Scalar", contains="ANY", validity=function(object) {
    if (length(object) != 1L)
        "non-scalar object"
    else TRUE
}, prototype=NA)

或使用基于虚拟类的小层次结构更强烈地控制标量类型

setClass("Scalar", validity=function(object) {
    if (length(object) != 1L)
        "non-scalar object"
    else TRUE
})

.ScalarInteger <- setClass("ScalarInteger",
    contains=c("Scalar", "integer"),
    prototype=prototype(NA_integer_))

这是采取的方法 生物导体' 生物酶 包裹，带有 mkScalar 构造函数。