The R Project SVN – R – Diff – /trunk/tests/eval-etc.R



                                 vec=c(a=1L,b=2L), v2=i6, v0=L00))
fm <- y ~ f(x)
lf <- list(ff = fm, osf = ~ sin(x))
stopifnot(identical(deparse(lf, control="all"), # no longer quote()s
		    deparse(lf)))
abc <- setNames(letters[1:4], c("one", "recursive", "use.names", "four"))
r13 <- i13 <- setNames(1:3, names(abc)[3:1]); mode(r13) <- "double"
if(getRversion() >= "3.5.0") {
    ## Creating a collection of S4 objects, ensuring deparse <-> parse are inverses
library(methods)
example(new) # creating t1 & t2 at least
## an S4 object of type "list" of "mp1" objects [see pkg 'Rmpfr']:

Rev 74675	Rev 74756
Line 186...	Line 186...
186	`vec=c(a=1L,b=2L), v2=i6, v0=L00))`	186	`vec=c(a=1L,b=2L), v2=i6, v0=L00))`
187	`fm <- y ~ f(x)`	187	`fm <- y ~ f(x)`
188	`lf <- list(ff = fm, osf = ~ sin(x))`	188	`lf <- list(ff = fm, osf = ~ sin(x))`
189	`stopifnot(identical(deparse(lf, control="all"), # no longer quote()s`	189	`stopifnot(identical(deparse(lf, control="all"), # no longer quote()s`
190	`deparse(lf)))`	190	`deparse(lf)))`
-		191	`abc <- setNames(letters[1:4], c("one", "recursive", "use.names", "four"))`
-		192	`r13 <- i13 <- setNames(1:3, names(abc)[3:1]); mode(r13) <- "double"`
191	`if(getRversion() >= "3.5.0") {`	193	`if(getRversion() >= "3.5.0") {`
192	`## Creating a collection of S4 objects, ensuring deparse <-> parse are inverses`	194	`## Creating a collection of S4 objects, ensuring deparse <-> parse are inverses`
193	`library(methods)`	195	`library(methods)`
194	`example(new) # creating t1 & t2 at least`	196	`example(new) # creating t1 & t2 at least`
195	`## an S4 object of type "list" of "mp1" objects [see pkg 'Rmpfr']:`	197	`## an S4 object of type "list" of "mp1" objects [see pkg 'Rmpfr']:`

The R Project SVN R

(root)/trunk/tests/eval-etc.R – Rev 74675 → 74756