0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.4.1
/
library
/
methods
/
tests
/
[
Home
]
File: envRefClass.R
### Moved from reg-tests-1c.R ## envRefClass prototypes are a bit special -- broke all.equal() for baseenv() rc <- getClass("refClass") rp <- rc@prototype str(rp) ## failed rp ## show() failed .. (ner <- new("envRefClass")) # show() failed stopifnot(all.equal(rp,rp), all.equal(ner,ner)) be <- baseenv() system.time(stopifnot(all.equal(be,be)))## <- takes a few sec's stopifnot( grepl("not identical.*character", print(all.equal(rp, ner))), grepl("not identical.*character", print(all.equal(ner, rp)))) system.time(stopifnot(all.equal(globalenv(), globalenv()))) ## Much of the above failed in R <= 3.2.0 proc.time()