The R Project SVN R

Rev

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

Rev 84984 Rev 85219
Line 1... Line 1...
1 
 
 1 
 
2 
R Under development (unstable) (2023-08-17 r84982) -- "Unsuffered Consequences"
 2 
R Under development (unstable) (2023-09-20 r85183) -- "Unsuffered Consequences"
3 
Copyright (C) 2023 The R Foundation for Statistical Computing
 3 
Copyright (C) 2023 The R Foundation for Statistical Computing
4 
Platform: x86_64-pc-linux-gnu
 4 
Platform: x86_64-pc-linux-gnu
5 
 
 5 
 
6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
7 
You are welcome to redistribute it under certain conditions.
 7 
You are welcome to redistribute it under certain conditions.
Line 206... Line 206...
206 
+ 			      echo=TRUE))),
 206 
+ 			      echo=TRUE))),
207 
+     identical(r1,r2)
 207 
+     identical(r1,r2)
208 
+ )
 208 
+ )
209 
> ## partly failed in R 3.4.0 alpha
 209 
> ## partly failed in R 3.4.0 alpha
210 
> rm(CO) # as its deparse() depends on if utils was installed w/ keep.source.pkgs=TRUE
 210 
> rm(CO) # as its deparse() depends on if utils was installed w/ keep.source.pkgs=TRUE
- 
 
 211 
> rm(r2)
211 
>
212 
>
212 
> srcdir <- file.path(Sys.getenv("SRCDIR"), "eval-fns.R")
 213 
> srcdir <- file.path(Sys.getenv("SRCDIR"), "eval-fns.R")
213 
> source(if(file.exists(srcdir)) srcdir else "./eval-fns.R", echo = TRUE)
 214 
> source(if(file.exists(srcdir)) srcdir else "./eval-fns.R", echo = TRUE)
214 
 
 215 
 
215 
> pd0 <- function(expr, backtick = TRUE, ...) parse(text = deparse(expr,
216 
> pd0 <- function(expr, backtick = TRUE, ...) parse(text = deparse(expr,
Line 876... Line 877...
876 
--=--=--=--=--
 877 
--=--=--=--=--
877 
r1: list(value = quote({
 878 
r1: list(value = quote({
878 
    if (!evaluated) {
 879 
    if (!evaluated) {
879 
        exprs <- substitute(exprs)
 880 
        exprs <- substitute(exprs)
880 
        if (is.call(exprs)) {
 881 
        if (is.call(exprs)) {
881 
            if (exprs[[1]] == quote(`{`))
882 
            if (exprs[[1]] == quote(`{`)) {
882 
                exprs <- as.list(exprs)[-1]
 883 
                exprs <- as.list(exprs)[-1]
- 
 
 884 
                if (missing(skip.echo) && is.list(srcrefs <- attr(exprs,
- 
 
 885 
                  "srcref"))) {
- 
 
 886 
                  skip.echo <- srcrefs[[1L]][7L] - 1L
- 
 
 887 
                }
- 
 
 888 
            }
883 
        }
 889 
        }
884 
    }
 890 
    }
885 
    source(exprs = exprs, local = local, print.eval = print.,
891 
    source(exprs = exprs, local = local, print.eval = print.,
886 
        echo = echo, max.deparse.length = max.deparse.length,
892 
        echo = echo, max.deparse.length = max.deparse.length,
887 
        width.cutoff = width.cutoff, deparseCtrl = deparseCtrl,
893 
        width.cutoff = width.cutoff, deparseCtrl = deparseCtrl,
888 
        ...)
 894 
        skip.echo = skip.echo, ...)
889 
}), visible = TRUE)
 895 
}), visible = TRUE)
890 
 --> checking list(*): Ok
 896 
 --> checking list(*): Ok
891 
--=--=--=--=--
 897 
--=--=--=--=--
892 
r13: structure(c(1, 2, 3), names = c("use.names", "recursive", "one"
 898 
r13: structure(c(1, 2, 3), names = c("use.names", "recursive", "one"
893 
))
 899 
))
894 
 --> checking list(*): Ok
 900 
 --> checking list(*): Ok
895 
--=--=--=--=--
 901 
--=--=--=--=--
896 
r2: list(value = quote({
 - 
 
897 
    if (!evaluated) {
 - 
 
898 
        exprs <- substitute(exprs)
 - 
 
899 
        if (is.call(exprs)) {
 - 
 
900 
            if (exprs[[1]] == quote(`{`))
- 
 
901 
                exprs <- as.list(exprs)[-1]
 - 
 
902 
        }
 - 
 
903 
    }
 - 
 
904 
    source(exprs = exprs, local = local, print.eval = print.,
- 
 
905 
        echo = echo, max.deparse.length = max.deparse.length,
- 
 
906 
        width.cutoff = width.cutoff, deparseCtrl = deparseCtrl,
- 
 
907 
        ...)
 - 
 
908 
}), visible = TRUE)
 - 
 
909 
 --> checking list(*): Ok
 - 
 
910 
--=--=--=--=--
 - 
 
911 
runEPD_checks: function (env = .GlobalEnv)
902 
runEPD_checks: function (env = .GlobalEnv)
912 
{
 903 
{
913 
    stopifnot(is.environment(env))
 904 
    stopifnot(is.environment(env))
914 
    for (nm in ls(envir = env)) {
 905 
    for (nm in ls(envir = env)) {
915 
        cat(nm, ": ", sep = "")
 906 
        cat(nm, ": ", sep = "")