Nothing
# Setup directories etc
.onLoad <- function(lib, pkg){
ocpu_init()
}
# Note we MUST hardcode for rapache because ocpu_init() changes tempdir()
TMPROOTDIR <- NULL
tmp_root <- function(){
if(is.null(TMPROOTDIR))
stop("TMPROOTDIR is not set")
TMPROOTDIR
}
ocpu_temp <-function(){
file.path(tmp_root(), "ocpu-temp")
}
ocpu_store <-function(){
file.path(tmp_root(), "ocpu-store")
}
ocpu_init <- function(){
if(is_testload()){
return(NULL)
}
# Check for cloud server options
if(isTRUE(getOption("rapache"))){
is_rapache(TRUE)
}
if(isTRUE(getOption("apparmor"))){
use_apparmor(TRUE)
}
# Copies default config file if not exists
create_user_config()
# Find configurations
load_config_and_settings(preload = TRUE)
# Set the initial root dir
TMPROOTDIR <<- tryCatch(config("tempdir"), error = function(e){
if(is_rapache())
return("/tmp")
Sys.getenv("OCPU_MASTER_HOME", tempdir())
})
# Applications should not rely on this variable
Sys.unsetenv("OCPU_MASTER_HOME")
# Create temporary directories
dir.create(ocpu_temp(), showWarnings = FALSE, recursive = TRUE, mode = "0777")
dir.create(ocpu_store(), showWarnings = FALSE, recursive = TRUE, mode = "0777")
# Needed for install.packages() in rapache
if(is_rapache()){
set_tempdir <- getFromNamespace('set_tempdir', 'unix')
set_tempdir(ocpu_temp())
Sys.setenv(TMPDIR = tempdir())
Sys.setenv(HOME = tempdir())
options(configure.vars = paste0("TMPDIR=", tempdir()))
}
}
is_testload <- function(){
as.logical(nchar(Sys.getenv("R_INSTALL_PKG")))
}
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.