args() and body() equivalents for S4 methods?

You could define

args4<-function(generic, signature) args(getMethod(generic,signature))
and
body4<-function(generic, signature) body(getMethod(generic,signature))

or use selectMethod() instead of getMethod() if you want to find
inherited methods.

? -thomas