/usr/lib/R/site-library/BiocGenerics/unitTests/test_mapply.R is in r-bioc-biocgenerics 0.24.0-1ubuntu2.
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 15 16 17 18 19 | test_ellipsis_forwarding_for_mapply <- function()
{
mapply_wrapper <- function(FUN, x, ...) mapply(FUN, x, ...)
x <- list(a=1:3, 1:2)
y <- list(104:105, B=103)
target <- mapply(append, x, y)
checkIdentical(target, mapply_wrapper(append, x, y))
MoreArgs <- list(after=0)
target <- mapply(append, x, y, MoreArgs=MoreArgs)
current <- mapply_wrapper(append, x, y, MoreArgs=MoreArgs)
checkIdentical(target, current)
MoreArgs <- list(after=2)
target <- mapply(append, x, y, MoreArgs=MoreArgs, USE.NAMES=FALSE)
current <- mapply_wrapper(append, x, y, MoreArgs=MoreArgs, USE.NAMES=FALSE)
checkIdentical(target, current)
}
|