R/init.R

In skardhamar/rga: R Google Analytics

# class constructor:
rga.open <- function(instance = "ga",
                     client.id = "862341168163-qtefv92ckvn2gveav66im725c3gqj728.apps.googleusercontent.com",
                     client.secret = "4CLMnYSN0svvaEXeybygHslJ",
                     where, envir = .GlobalEnv) {

    if (exists(instance, where = envir)) {
        get(instance, envir = envir, mode = "S4")$prepare()
    } else {
        if (missing("where")) {
            # where is not set
            token <- .rga.getToken(client.id, client.secret)
            assign(instance, rga$new(client.id, client.secret, where = "", token), envir = envir)
        } else {
            if (file.exists(where)) {
                # file exists
                assign(instance, readRDS(where), envir = envir)
                get(instance, envir = envir, mode = "S4")$prepare()
            } else {
                # create file
                token <- .rga.getToken(client.id, client.secret)
                assign(instance, rga$new(client.id, client.secret, where, token), envir = envir)
                saveRDS(get(instance, envir = envir), file = where)
            }
        }
    }
}