I'm trying to make a function to turn a regular function into an S3 generic
one. I want myMethod to be:
function(x,...) UseMethod("myMethod")
But I keep getting:
function(x,...) UseMethod(func)
Here's the function:
toGeneric<-function(func) {
env<-environment(get(func))
# default method of new generic = the original function
assign(paste(func,".default",sep=""),get(func),pos=env)
assign(func,function(x,...) UseMethod(func),pos=env)
}
toGeneric("myMethod")
I messed around with force, substitute, and deparse, but I can't get any of
those to help.
Thanks.