The R Project SVN R

Rev

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

Rev 53641 Rev 53645
Line 318... Line 318...
318 
 
 318 
 
319 
## this has to be last--Seems no way to unlock an environment!
 319 
## this has to be last--Seems no way to unlock an environment!
320 
lockEnvironment(m)
 320 
lockEnvironment(m)
321 
stopifnot(environmentIsLocked(m))
 321 
stopifnot(environmentIsLocked(m))
322 
 
 322 
 
- 
 
 323 
rm(m)
- 
 
 324 
m <- new("myEnv")
- 
 
 325 
stopifnot(length(ls(m)) == 0)
- 
 
 326 
## used to contain the previous content
- 
 
 327 
 
323 
 
 328 
 
324 
## test of callSuper() to a hidden default method for initialize() (== initFields)
 329 
## test of callSuper() to a hidden default method for initialize() (== initFields)
325 
TestClass <- setRefClass ("TestClass",
 330 
TestClass <- setRefClass ("TestClass",
326 
     fields = list (text = "character"),
 331 
     fields = list (text = "character"),
327 
     methods = list(
 332 
     methods = list(