S3 클래스에 대한 show 메소드를 정의하십시오.

Question

저는 show가 S4 generic이라는 사실을 알게되어 기쁩니다. 그리고 show function을 사용하기 위해 S3 디스 패칭을 사용할 방법을 찾을 수 없습니다. 간단한 데모 :

> x <- 1:5 
> xx <- structure(x,class="aClass") 

> show.aClass <- function(object){ 
+  cat("S3 dispatching.\n") 
+  print(object) 
+ } 

> xx 
[1] 1 2 3 4 5 

없음 S3 여기에 파견 ...

> setMethod("show","aClass",function(object){ 
+  cat("S4 dispatching.\n") 
+  print(object) 
+ }) 
in method for ‘show’ with signature ‘"aClass"’: no definition for class “aClass” 
[1] "show" 

> xx 
[1] 1 2 3 4 5 

당신은 어떻게 생각 했습니까?

> print.aClass <- function(object){ 
+  cat("the print way...\n") 
+  print(as.vector(object)) #drop class to avoid infinite loop! 
+ } 

> xx 
the print way... 
[1] 1 2 3 4 5 

인쇄용으로 사용됩니다.

S3에 머물러야 할 좋은 이유가 있습니다. (그 중 큰 부분은 오버 헤드 최소화입니다. 객체는 부트 스트래핑에서 광범위하게 사용됩니다). 여기에 다른 쇼 및 인쇄 방법을 어떻게 정의해야합니까?

Answer 1

어쩌면

setOldClass("aClass") 
setMethod(show, "aClass", function(object) cat("S4\n")) 
print.aClass <- function(object) { cat("S3... "); show(object) } 

다음

> structure(1:5, class="aClass") 
S3... S4 

하지만 난 정말 당신이 원하는 것을 이해하고 있지 않다.