S3 클래스의 기본 요소

Question

기본 출력 요소를 정의하고 숨겨진 나머지 요소를 유지하는 옵션이 있으면 R의 S3 클래스에 대해 궁금해했습니다. 우리가

res <- toy(c(1:10)) 
res 

를 통해 이제 결과를 액세스 할 때

toy <- function(x){ 
    resA <- mean(x) 
    resB <- length(x) 

    output <- list(resA=resA, resB=resB, x=x) 
    class(output) <- "toy" 
    output 
} 

우리가 얻을 : 예를 들어, 우리가 어떤 일을 계산하고이처럼 S3 클래스로 다시보고 장난감 기능을 가지고 말할 수 예상대로 전체 목록을 결과로 출력합니다. 우리가 S3 인쇄 방법을 또한 다음

`print.toy` <- function(x){ 
    print(x$resA) 
} 

를 정의한다면 우리는 (이 경우 resB 및 x에) 불필요한 정보를 숨기고 사용자는 resA보고 인쇄 표준 출력을 제공 할 수 있습니다. 그러나 이것은 클래스 toy의 객체에 대해 더 많은 계산을 적용하려는 경우 약간의 혼란을 야기 할 수 있습니다.

res <- toy(c(1:10)) 
res 
# Produces an error 
res + 1 
# Accesses the correct variable of class toy: 
res$resA + 1 

내 질문은 res + 1 전화뿐만 아니라 작동 할 수 있도록 어떤 변수가 지정되지 않은 경우주의해야 S3 클래스의 표준 값으로 목록 항목 resA을 정의 할 수있는 방법이있다, 지금 ?

감사합니다. @Ari 언급으로

Answer 1

한 가지 방법은 벡터를 사용하는 것입니다 + 대신 목록의 속성. 이것은 정규 벡터처럼 작동해야하는 데이터의 기본 데이터 하나와 몇 가지 추가 메타 데이터가있는 경우에 가장 적합합니다. 기본 방법은 특성을 보존하지 않기 때문에

toy <- function(x) { 
    resA <- mean(x) 
    resB <- length(x) 

    structure(resA, x = x, b = resB, class = "toy") 
} 
print.toy <- function(x, ...) { 
    print(as.vector(x)) 
} 
t <- toy(1:10) 
t + 1 
# [1] 6.5 

또한, [를 재정의해야합니다.

Answer 2

, 당신은 같은 것을 할 필요가 있습니다

`+.toy` <- function(a, b) { 
    # you should check for class/mode/is.atomic here if necessary 
    a$resA <- a$resA + b 
    a 
} 

t <- toy(1:10) 
t + 1 
# [1] 6.5