R/utils-options.R

In decisionpatterns/cache: Intuitive and Comprehensive Cache

# utils-options.R
# Taken from base.tools package

get_option <- getOption

# (Pipeable) set single options
#
# @return
#   The option value(s), invisibly
#
# @examples
#
#  x <- set_option( cache_key = "my key" )
#  x
#  getOption("cache_key")
# 

set_option <- function(...) {

  li <- list(...)

  if( length(li) != 1 ) stop("Options must be a single name/value pair.")
  if( is.null(names(li)) ) stop( "Options must be named")

  options(...)

  invisible( li[[1]] )
}