A little mechanism for setting options for an R package.

gistfile1.r

opt.env <- new.env()

setOption <- function(auth_token, remaining_limit) {
    cl <- as.list(match.call()[-1])
    invisible(mapply(assign, names(cl), cl, MoreArgs=list(envir=opt.env)))
}

getOption <- function(opt) if(exists(opt, envir=opt.env)) get(opt, envir=opt.env) else NA

#---- test ---
setOption(auth_token='val', remaining_limit=2)
getOption('auth_token')
getOption('remaining_limit')