The R Project SVN R

Rev

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

Rev 27541 Rev 27733
Line 60... Line 60...
60 
testit <- function() warning("testit")
 60 
testit <- function() warning("testit")
61 
testit() ## shows call
 61 
testit() ## shows call
62 
testit <- function() warning("problem in testit", call. = FALSE)
 62 
testit <- function() warning("problem in testit", call. = FALSE)
63 
testit() ## no call
 63 
testit() ## no call
64 
suppressWarnings(warning("testit"))
 64 
suppressWarnings(warning("testit"))
65 
\dontshow{eigenval <- 10 ^ -stats::rnorm(1, m=6)
 65 
\dontshow{eigenval <- 10 ^ -rnorm(1, m=6)
66 
if(eigenval < 1.e-7) warning("system near singular")
 66 
if(eigenval < 1.e-7) warning("system near singular")
67 
options(oldopt)}
 67 
options(oldopt)}
68 
}
 68 
}
69 
\keyword{programming}
 69 
\keyword{programming}
70 
\keyword{error}
 70 
\keyword{error}