Displaying 1 result from an estimated 1 matches for "slot_of_a".
2011 Nov 18
1
S4 : defining [<- using inheritance from 2 classes
...'A' and 'B'
have no slot with similar names.
----------------
setClass(
Class="C",
contains=c("A","B")
)
To define the get operator '[' for class "C", I simply use the get of "A" or
"B" (the constante 'SLOT_OF_A' is a character holding the names of all the
slot of A) :
----------------
setMethod("[","C",
function(x,i,j,drop){
if(i%in%SLOT_OF_A){
x <- as(x,'A')
}else{
x <- as(x,'B')
}
return(x[i,j])
}
----------------
Is it...