The R Project SVN R

Rev

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

Rev 79585 Rev 84929
Line 3... Line 3...
3 
## Hopefully typically the identity():
 3 
## Hopefully typically the identity():
4 
pd0 <- function(expr, backtick = TRUE, ...)
 4 
pd0 <- function(expr, backtick = TRUE, ...)
5 
    parse(text = deparse(expr, backtick=backtick, ...))
 5 
    parse(text = deparse(expr, backtick=backtick, ...))
6 
id_epd <- function(expr, control = "all", ...)
 6 
id_epd <- function(expr, control = "all", ...)
7 
    eval(pd0(expr, control=control, ...))
 7 
    eval(pd0(expr, control=control, ...))
- 
 
 8 
## "digits17" ("all") causes different results on x86_64 and
- 
 
 9 
## Windows/aarch64
8 
dPut <- function(x, control = "all") dput(x, control=control)
 10 
dPut <- function(x, control = c("quoteExpression", "showAttributes",
- 
 
 11 
                                "niceNames", "keepInteger"))
- 
 
 12 
    dput(x, control=control)
9 
##' Does 'x' contain "real" numbers
 13 
##' Does 'x' contain "real" numbers
10 
##' with > 3 digits after "." where deparse may be platform dependent?
 14 
##' with > 3 digits after "." where deparse may be platform dependent?
11 
hasReal <- function(x) {
 15 
hasReal <- function(x) {
12 
    if(is.double(x) || is.complex(x))
 16 
    if(is.double(x) || is.complex(x))
13 
        !all((x == round(x, 3)) | is.na(x))
 17 
        !all((x == round(x, 3)) | is.na(x))