S3 메소드에 대한 S3 스타일 디스패치 (공식 메소드 정의 사용)

Question

this 관련 질문이지만 약간 다르지만 희망적으로 더 명확합니다.

나는, 그러나 파견에 대한 끔찍한 S3 점 명명-방식에 의존하지 않고 정식 S4 및 S3 클래스 모두를위한 방법을 등록하는 깨끗한 방법을 찾고 있어요. 예 :

setClass("foo"); 
setClass("bar"); 

setGeneric("test", function(x, ...){ 
    standardGeneric("test"); 
}); 

setMethod("test", "bar", function(x, ...){ 
    return("success (bar)."); 
}); 

obj1 <- 123; 
class(obj1) <- "bar"; 
test(obj1); 

이 예는 우리가 대단한 기능 test.bar를, 이름을 할 필요없이, 클래스 bar의 S3 객체에 대한 test 방법을 등록 할 수있는 방법을 보여줍니다. 그러나이 방법으로 메소드를 등록하는 경우 제한은 오브젝트의 첫 번째 S3 클래스로만 디스패치됩니다. 예컨대는 :

obj2 <- 123; 
class(obj2) <- c("foo", "bar"); 
test(obj2); 

이 작동하지 않는, S4 방법 파견은 클래스 foo와 그 슈퍼 클래스를 시도 때문이다. foo에 대한 적절한 방법이 발견되지 않으면 bar에 대해 test 메서드를 자동으로 선택하도록이 예제를 어떻게 확장 할 수 있습니까? 예 : S3 스타일을 디스패치하지만 모든 것을 명명하는 데 돌아 가지 않고도 test.foo 및 test.bar?

요약하면 : 공식 메소드 디스 패칭을 사용하는 일반 함수를 만드는 방법은 물론 여러 클래스가있는 S3 객체에 대한 객체의 두 번째, 세 번째 등의 클래스로 대체하는 방법입니다.

setOldClass(c("foo", "bar")) 

setGeneric("test", function(x, ...)standardGeneric("test")) 
setMethod("test", "bar", function(x, ...)return("success (bar).")) 

Answer 1

당신은 방법

test = function(x, ...) UseMethod("test") 

setGeneric("test") 

.redispatch = function(x, ...) 
{ 
    if (is.object(x) && !isS4(x) && length(class(x)) != 1L) { 
     class(x) = class(x)[-1] 
     callGeneric(x, ...) 
    } else callNextMethod(x, ...) 
} 

setMethod(test, "ANY", .redispatch) 

을 쓸 수 그러나 나는 개인적으로이 방법 S3과 S4를 함께 사용하지 것이다 :

Answer 2

?setOldClass 대답을 줄 것이다.