If you want to use method<- to register an method for an S4 generic with
an S7 class, you need to call S4_register() once.
S4_register(class, env = parent.frame())An S7 class created with new_class().
Expert use only. Environment where S4 class will be registered.
Nothing; the function is called for its side-effect.
methods::setGeneric("S4_generic", function(x) {
standardGeneric("S4_generic")
})
#> [1] "S4_generic"
Foo <- new_class("Foo")
S4_register(Foo)
method(S4_generic, Foo) <- function(x) "Hello"
S4_generic(Foo())
#> [1] "Hello"