R S4 클래스는 멤버 함수 내가 목록에 요소를 추가하기로하는 S4 클래스 (프로그래밍 언어 R)의 멤버 함수를 정의

Question

영향을주지 않습니다,하지만 아무것도하지 :

setClass("ListHolder", 
representation(
    .list = "list" 
), 
prototype(
    .list = list() 
)) 
setGeneric("add", 
function(this,i) standardGeneric("add") 
) 
setMethod("add", 
signature(this="ListHolder",i="numeric"), 
definition = function(this,i){ 

    k <- length(this@.list) 
    this@.list[[k+1]] <- i 
}) 

testListHolder <- function(){ 

    lh <- new("ListHolder") 
    for(i in 1:10) add(lh,i) 
    print(lh@.list) 
} 

testListHolder() 

이 뜻을 빈리스트를 출력한다. 여기서 무슨 일이 일어나고있는거야?

Answer 1

추가 기능은 문제 : 싶은 것은 함수에 객체 ListHolder를 전달하고 R 지원하지 않는, 수정입니다.

그래서, 위의 코드에서 :

1. setMethod를 :를 추가추가 (개체, i)는, 기능 의 끝에서 return(this) 문을 추가합니다.
2. testListHolder : lh후에는를 추가, 교체, for(i in 1:10) lh <- add(lh,i)

편집 :는 (객체를 수정하는 데 사용하는 기능) this을 확인 질문