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
|
.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()
}
.onUnload <- function(libpath)
{
library.dynam.unload("DelayedArray", libpath)
}
.test <- function()
{
setRealizationBackend("RleArray")
BiocGenerics:::testPackage("DelayedArray")
}
|
