The R Project SVN R

Rev

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

Rev 53330 Rev 53335
Line 256... Line 256...
256 
 
 256 
 
257 
if(methods:::.hasCodeTools()) {
 257 
if(methods:::.hasCodeTools()) {
258 
    ## code warnings assigning locally to, or hiding, field names
 258 
    ## code warnings assigning locally to, or hiding, field names
259 
    stopifnot(is(tryCatch(mv$methods(test = function(x) {data <- x[!is.na(x)]; mean(data)}), warning = function(e)e), "warning"))
 259 
    stopifnot(is(tryCatch(mv$methods(test = function(x) {data <- x[!is.na(x)]; mean(data)}), warning = function(e)e), "warning"))
260 
 
 260 
 
- 
 
 261 
### formal arg test suppressed--see comment in .checkFieldsInMethod
261 
    stopifnot(is(tryCatch(mv$methods(test2 = function(data) {data[!is.na(x)]}), warning = function(e)e), "warning"))
 262 
    ## stopifnot(is(tryCatch(mv$methods(test2 = function(data) {data[!is.na(x)]}), warning = function(e)e), "warning"))
262 
} else
 263 
} else
263 
    warning("Can't run some tests:  recommended package codetools is not available")
 264 
    warning("Can't run some tests:  recommended package codetools is not available")
264 
 
 265 
 
265 
## tests (fragmentary by necessity) of promptClass for reference class
 266 
## tests (fragmentary by necessity) of promptClass for reference class
266 
suppressMessages(promptClass("refClassB", filename = textConnection("ctxt", "w")))
 267 
suppressMessages(promptClass("refClassB", filename = textConnection("ctxt", "w")))