The R Project SVN R

Rev

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

Rev 64894 Rev 85382
Line 33... Line 33...
33 
    "typeof(x) == typeof(y) && is.logical(r <- all.equal(x,y, tolerance=0)) && r \n",
 33 
    "typeof(x) == typeof(y) && is.logical(r <- all.equal(x,y, tolerance=0)) && r \n",
34 
    sep="\n")
 34 
    sep="\n")
35 
 
 35 
 
36 
cat("report <- function(x) {print(x); stopifnot(x)}\n")
 36 
cat("report <- function(x) {print(x); stopifnot(x)}\n")
37 
 
 37 
 
38 
cat("options(error = expression(NULL))",
 38 
cat("options(catch.script.errors = TRUE)",
39 
    "# don't stop on error in batch\n##~~~~~~~~~~~~~~\n")
 39 
    "# don't stop on error in batch\n##~~~~~~~~~~~~~~\n")
40 
for(x in ex.list) {
 40 
for(x in ex.list) {
41 
    cat("\n###--------\n x <- ", deparse(x), "\n", sep="")
 41 
    cat("\n###--------\n x <- ", deparse(x), "\n", sep="")
42 
    ## is.foo(as.foo( bar )) #>> TRUE :
 42 
    ## is.foo(as.foo( bar )) #>> TRUE :
43 
    for(r in root) {
 43 
    for(r in root) {