R/nrsa.options.r

In jasonelaw/nrsa: Calculate metrics for NRSA protocol data.

#'Set nrsa package options
#'
#'Sets nrsa package options. The only current option is the \code{ProgressReports} option.
#'Setting this option to \code{TRUE} will result in the functions of the package issuing 
#'progress reports when they are complete.
#'@param ... package options in tag = value form
#'@export
nrsa.options <- function (...) 
{
    if (nargs() == 0) 
        return(.nrsa.Options)
    current <- .nrsa.Options
    temp <- list(...)
    if (length(temp) == 1 && is.null(names(temp))) {
        arg <- temp[[1]]
        switch(mode(arg), list = temp <- arg, character = return(.nrsa.Options[arg]), 
            stop("invalid argument: ", sQuote(arg)))
    }
    if (length(temp) == 0) 
        return(current)
    n <- names(temp)
    if (is.null(n)) 
        stop("options must be given by name")
    changed <- current[n]
    current[n] <- temp
    if (sys.parent() == 0) 
        env <- asNamespace("nrsa")
    else env <- parent.frame()
    assign(".nrsa.Options", current, envir = env)
    invisible(current)
}