The R Project SVN R

Rev

Rev 53669 | Rev 53693 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 53669 Rev 53691
Line 262... Line 262...
262 
v3 <- v1$copy(TRUE)
 262 
v3 <- v1$copy(TRUE)
263 
v3$viewer$data <- t(xMat) # should modify v1$viewer as well
 263 
v3$viewer$data <- t(xMat) # should modify v1$viewer as well
264 
stopifnot(identical(v1$viewer$data, t(xMat)))
 264 
stopifnot(identical(v1$viewer$data, t(xMat)))
265 
 
 265 
 
266 
## the methods to extract class definition and generator
 266 
## the methods to extract class definition and generator
267 
stopifnot(identical(v3$getRefClass(), mv),
 267 
## stopifnot(identical(v3$getRefClass(), mv),
268 
          identical(v3$getClass(), getClass("viewerPlus")))
 268 
##           identical(v3$getClass(), getClass("viewerPlus")))
269 
 
 269 
 
270 
## deal correctly with inherited methods and overriding existing
 270 
## deal correctly with inherited methods and overriding existing
271 
## methods from $methods(...)
 271 
## methods from $methods(...)
272 
refClassA <- setRefClass("refClassA", methods=list(foo=function() "A"))
 272 
refClassA <- setRefClass("refClassA", methods=list(foo=function() "A"))
273 
refClassB <- setRefClass("refClassB", contains="refClassA")
 273 
refClassB <- setRefClass("refClassB", contains="refClassA")