The R Project SVN R

Rev

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

Rev 83890 Rev 85219
Line 149... Line 149...
149 
			      echo=TRUE))),
 149 
			      echo=TRUE))),
150 
    identical(r1,r2)
 150 
    identical(r1,r2)
151 
)
 151 
)
152 
## partly failed in R 3.4.0 alpha
 152 
## partly failed in R 3.4.0 alpha
153 
rm(CO) # as its deparse() depends on if utils was installed w/ keep.source.pkgs=TRUE
 153 
rm(CO) # as its deparse() depends on if utils was installed w/ keep.source.pkgs=TRUE
- 
 
 154 
rm(r2)
154 
 
 155 
 
155 
srcdir <- file.path(Sys.getenv("SRCDIR"), "eval-fns.R")
 156 
srcdir <- file.path(Sys.getenv("SRCDIR"), "eval-fns.R")
156 
source(if(file.exists(srcdir)) srcdir else "./eval-fns.R", echo = TRUE)
 157 
source(if(file.exists(srcdir)) srcdir else "./eval-fns.R", echo = TRUE)
157 
rm("srcdir")
 158 
rm("srcdir")
158 
 
 159