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
|
### Placeholders, initialized in .onLoad()
#.DUMP_FILES_GLOBAL_COUNTER_FILEPATH <- NULL
.DUMP_NAMES_GLOBAL_COUNTER_FILEPATH <- NULL
.DATASET_CREATION_GLOBAL_COUNTER_FILEPATH <- NULL
.onLoad <- function(libname, pkgname)
{
#.DUMP_FILES_GLOBAL_COUNTER_FILEPATH <<-
# init_HDF5_dump_files_global_counter()
.DUMP_NAMES_GLOBAL_COUNTER_FILEPATH <<-
init_HDF5_dump_names_global_counter()
if (!HDF5Array_global_option_is_set("dump.dir"))
setHDF5DumpDir()
if (!HDF5Array_global_option_is_set("dump.chunk.length"))
setHDF5DumpChunkLength()
if (!HDF5Array_global_option_is_set("dump.chunk.shape"))
setHDF5DumpChunkShape()
if (!HDF5Array_global_option_is_set("dump.compression.level"))
setHDF5DumpCompressionLevel()
file.create(get_HDF5_dump_logfile())
.DATASET_CREATION_GLOBAL_COUNTER_FILEPATH <<-
init_HDF5_dataset_creation_global_counter()
}
.onUnload <- function(libpath)
{
#file.remove(.DUMP_FILES_GLOBAL_COUNTER_FILEPATH)
file.remove(.DUMP_NAMES_GLOBAL_COUNTER_FILEPATH)
file.remove(.DATASET_CREATION_GLOBAL_COUNTER_FILEPATH)
}
.test <- function() BiocGenerics:::testPackage("HDF5Array")
|
