Global Option in R
list = options()
(list|null)= options(optionName)
getOption('optionName', default = NULL)
old.o <- options(editor = "nedit")
if(as.logical(getOption("performCleanp", TRUE)))
cat("do cleanup\n")
# or
tmp <- getOption("performCleanup")
if(is.null(tmp))
tmp <- TRUE
if(tmp)
cat("do cleanup\n")