Nothing
.onLoad <- function(lib, pkg){
}
.onAttach <- function(lib, pkg){
#print(search())
#print(set_opts)
packageStartupMessage("Flowr: streamlining workflows")
fl = file.path(path.expand("~"), ".flowr.conf")
fls = c(fl, unique(unlist(sapply(c("flowr"), fetch_conf))))
suppressMessages(opts_flow$load(fls, check = FALSE))
#print(fls)
if(opts_flow$get('verbose') > 1)
packageStartupMessage("\nverbose level: 2 (debug mode)\nfollowing files are being loaded:\n", paste(fls, "\n"))
}
.onDeatch <- function(lib, pkg) {
#ops <- options()
#options(ops)
}
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.