The R Project SVN R

Rev

Rev 54339 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 54339 Rev 55578
Line 38... Line 38...
38 
xx$undo()
 38 
xx$undo()
39 
xEdited[[1,3]] <- xMat[[1,3]]
 39 
xEdited[[1,3]] <- xMat[[1,3]]
40 
stopifnot(identical(xx$data, xEdited))
 40 
stopifnot(identical(xx$data, xEdited))
41 
xx$undo()
 41 
xx$undo()
42 
stopifnot(identical(xx$data, xMat))
 42 
stopifnot(identical(xx$data, xMat))
- 
 
 43 
 
- 
 
 44 
## the tracing method
- 
 
 45 
xx$trace(edit, quote(value <- 0))
- 
 
 46 
xx$edit(2,2, -1) # traced should assign 0
- 
 
 47 
stopifnot(identical(xx$data, xEdited))
- 
 
 48 
xx$untrace(edit)
- 
 
 49 
xx$edit(1, 3, -1) # now it should use -1
- 
 
 50 
xEdited[[1,3]] <- -1
- 
 
 51 
stopifnot(identical(xx$data, xEdited))