R/ocoptions.R

In psolymos/opticut: Likelihood Based Optimal Partitioning and Indicator Species Analysis

ocoptions <-
function(...)
{
    opar <- getOption("ocoptions")
    args <- list(...)
    if (length(args)) {
        if (length(args)==1 && is.list(args[[1]])) {
            npar <- args[[1]]
        } else {
            npar <- opar
            npar[match(names(args), names(npar))] <- args
        }
        options("ocoptions"=npar)
    }
    invisible(opar)
}