Nothing
.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")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.