The R Project SVN R

Rev

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

Rev 33659 Rev 33662
Line 278... Line 278...
278 
}
 278 
}
279 
 
 279 
 
280 
try(findFuncStrict("myFun"))# no version
 280 
try(findFuncStrict("myFun"))# no version
281 
lm <- function(x) x+1
 281 
lm <- function(x) x+1
282 
try(findFuncStrict("lm"))# 2 versions
 282 
try(findFuncStrict("lm"))# 2 versions
283 
findFuncStrict("findFuncStrict"))# just 1 version
 283 
findFuncStrict("findFuncStrict")# just 1 version
284 
 
 284 
 
285 
\dontshow{
 285 
\dontshow{
286 
## because nosegfault runs standardGeneric w/o the methods package, nothing
 286 
## because nosegfault runs standardGeneric w/o the methods package, nothing
287 
## really gets tested.  The following check that it catches some errors
 287 
## really gets tested.  The following check that it catches some errors
288 
mustDie <- function(expr) stopifnot(is(trySilent(expr), "try-error"))
 288 
mustDie <- function(expr) stopifnot(is(trySilent(expr), "try-error"))