-
Notifications
You must be signed in to change notification settings - Fork 12
/
zzz.R
42 lines (40 loc) · 1.65 KB
/
zzz.R
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
35
36
37
38
39
40
41
42
.CACHE_ROOT <- "ExperimentHub"
.onLoad <- function(libname, pkgname, ...) {
## options from getOption or Sys.env or default, in that order
if (is.null(getExperimentHubOption("MAX_DOWNLOADS"))) {
opt <- getOption("EXPERIMENT_HUB_MAX_DOWNLOADS", 10L)
opt <- Sys.getenv("EXPERIMENT_HUB_MAX_DOWNLOADS", opt)
opt <- as.integer(opt)
setExperimentHubOption("MAX_DOWNLOADS", opt)
}
if (is.null(getExperimentHubOption("URL"))) {
opt <- getOption("EXPERIMENT_HUB_URL",
"https://experimenthub.bioconductor.org")
opt <- Sys.getenv("EXPERIMENT_HUB_URL", opt)
setExperimentHubOption("URL", opt)
}
if (is.null(getExperimentHubOption("CACHE"))) {
path <- tools::R_user_dir(.CACHE_ROOT, which="cache")
opt <- getOption("EXPERIMENT_HUB_CACHE", path)
opt <- Sys.getenv("EXPERIMENT_HUB_CACHE", opt)
setExperimentHubOption("CACHE", opt)
}
if (is.null(getExperimentHubOption("PROXY"))) {
opt <- getOption("EXPERIMENT_HUB_PROXY", "")
opt <- Sys.getenv("EXPERIMENT_HUB_PROXY", opt)
if (nzchar(opt))
setExperimentHubOption("PROXY", opt)
}
if (is.null(getExperimentHubOption("LOCAL"))) {
opt <- getOption("EXPERIMENT_HUB_LOCAL", FALSE)
opt <- Sys.getenv("EXPERIMENT_HUB_LOCAL", opt)
opt <- as.logical(opt)
setExperimentHubOption("LOCAL", opt)
}
if (is.null(getExperimentHubOption("ASK"))) {
opt <- getOption("EXPERIMENT_HUB_ASK", interactive())
opt <- Sys.getenv("EXPERIMENT_HUB_ASK", opt)
opt <- as.logical(opt)
setExperimentHubOption("ASK", opt)
}
}