Тип преобразования перед отправкой проходит

Question

Я образующую функцию универсального

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

, которые должны иметь экземпляры буксирные: genfun.default (если х есть матрица) genfun.formula (если х есть формула)

Это прекрасно работает, но теперь я хотел бы иметь это перед отправкой, что если x является строкой charcter, она вынуждена быть формулой.

К сожалению, следующий не работает

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

Есть ли способ, чтобы справиться с этим без определения дальнейшего экземпляра как genfun.character?

Большое спасибо за вашу помощь заранее!

Бест,

Martin

Answer 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