1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
.onLoad <- function(libname, pkgname)
{
options(DelayedArray.simplify=TRUE)
#if (!user_options_file_exists()) {
# ## Initialize DelayedArray user controlled global options (setting
# ## the 1st option creates the file where the options are stored).
# setAutoGridMaker()
# set_auto.block.size()
# set_auto.block.shape()
# setAutoBPPARAM()
#}
if (!user_option_is_set("auto.grid.maker"))
setAutoGridMaker()
if (!user_option_is_set("auto.block.size"))
set_auto.block.size()
if (!user_option_is_set("auto.block.shape"))
set_auto.block.shape()
if (!user_option_is_set("auto.BPPARAM"))
setAutoBPPARAM()
if (!user_option_is_set("auto.mult.parallel.agnostic"))
setAutoMultParallelAgnostic()
}
.onUnload <- function(libpath)
{
library.dynam.unload("DelayedArray", libpath)
}
.test <- function()
{
setAutoRealizationBackend("RleArray")
BiocGenerics:::testPackage("DelayedArray")
}
|