1

我正在定义一个通用函数

genfun <- function(x, ...)
    UseMethod("genfun")

应该有两个实例: genfun.default (如果 x 是矩阵) genfun.formula (如果 x 是公式)

这工作得很好,但现在我想在调度发生之前拥有它,如果 x 是一个字符串,它被迫成为一个公式。

不幸的是,以下不起作用

genfun <- function(x, ...) {
    if (is.character(x)) x <- as.formula(x)
    UseMethod("rlasso")
}

有没有办法在不定义像 genfun.character 这样的进一步实例的情况下处理这个问题?

非常感谢您提前提供的帮助!

最好的,

马丁

4

1 回答 1

1

我在想这样的事情(尽管正确的方法是定义另一种方法)。

genfun <- function(x, ...)
  UseMethod('genfun')

genfun.default <- function(x, ...) {
  if (is.character(x)) {
    x <- as.formula(x)
    return(genfun(x))
  }
  dim(x)
}

genfun.formula <- function(x, ...) {
  message('using formula method')
  ## do something
}


genfun(mtcars)
# [1] 32 11

genfun(y ~ x)
# using formula method

genfun('y ~ x')
# using formula method
于 2016-06-18T14:18:32.027 回答