The R Project SVN R

Rev

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

Rev 74644 Rev 74756
Line 61... Line 61...
61 
        if(is.na(match(oNam, not.identical.ldouble))) {
 61 
        if(is.na(match(oNam, not.identical.ldouble))) {
62 
            ae.txt <- "all.equal(*,*, tol = ..)"
 62 
            ae.txt <- "all.equal(*,*, tol = ..)"
63 
            ## differs for "no-ldouble": sprintf("all.equal(*,*, tol = %.3g)", eq.tol)
 63 
            ## differs for "no-ldouble": sprintf("all.equal(*,*, tol = %.3g)", eq.tol)
64 
            cat("not identical(*, ignore.env=T),", if(isTRUE(ae)) paste("but", ae.txt), "\n")
 64 
            cat("not identical(*, ignore.env=T),", if(isTRUE(ae)) paste("but", ae.txt), "\n")
65 
        }
 65 
        }
66 
        if(!isTRUE(ae)) stop("Not equal: ", ae.txt, " giving\n", ae)
 66 
        if(!isTRUE(ae)) stop("Not equal: ", ae.txt,
- 
 
 67 
                             paste(c(" giving", head(ae, 2),
- 
 
 68 
                                     if(length(ae) > 2) "...."), collapse = "\n  "))
67 
    }
 69 
    }
68 
    if(!is.language(obj)) {
 70 
    if(!is.language(obj)) {
69 
	ob2. <- eval(obj) ## almost always *NOT* identical to obj, but eval()ed
 71 
	ob2. <- eval(obj) ## almost always *NOT* identical to obj, but eval()ed
70 
    }
 72 
    }
71 
    if(show || !is.list(obj)) { ## check it works when wrapped (but do not recurse inf.!)
 73 
    if(show || !is.list(obj)) { ## check it works when wrapped (but do not recurse inf.!)