/usr/lib/R/site-library/Biobase/UnitTests/copyEnv_test.R is in r-bioc-biobase 2.20.0-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | basic_test <- function() {
env1 <- new.env(hash=TRUE, parent=emptyenv())
env1$a <- 1:3
env1$b <- "foo"
env1[[".hidden"]] <- 3.1
z <- copyEnv(env1)
checkEquals(env1$a, z$a)
checkEquals(env1$b, z$b)
checkTrue(!exists(".hidden", z))
z <- copyEnv(env1, all.names=TRUE)
checkEquals(env1[[".hidden"]], z[[".hidden"]])
env1$a[1] <- 10L
checkEquals(1L, z$a[1])
}
|