R/zzz.R

Defines functions .onLoad .onAttach

.onAttach <- function(libname, pkgname) {
    packageStartupMessage("Please use predefined Credentials only for the testing requests. To obtain your own Credentials see help(authorize).")
}

.onLoad <- function(libname, pkgname) {
    op <- options()
    op.rga <- list(
        rga.client.id = "144394141628-8m5i5icva7akegi3tp6215d9eg9o5cln.apps.googleusercontent.com",
        rga.client.secret = "wlFmhluHqTdZw6UG22h5A2nr",
        rga.cache = ".ga-token.rds"
    )
    toset <- !(names(op.rga) %in% names(op))
    if (any(toset)) options(op.rga[toset])

    invisible()
}

Try the RGA package in your browser

Any scripts or data that you put into this service are public.

RGA documentation built on May 2, 2019, 6:47 a.m.