.onLoad <- function(libname, pkgname) {
op <- options()
op.bigQueryR <- list(
## default Google project
googleAuthR.client_id = "68483650948-28g1na33slr3bt8rk7ikeog5ur19ldq6.apps.googleusercontent.com",
googleAuthR.client_secret = "f0npd8zUhmqf8IqrIypBs6Cy ",
googleAuthR.webapp.client_id = "68483650948-sufabj4nq9h1hjofp03hcjhk4af93080.apps.googleusercontent.com",
googleAuthR.webapp.client_secret = "0tWYjliwXD32XhvDJHTl4NgN ",
googleAuthR.scopes.selected = c("https://www.googleapis.com/auth/cloud-platform"),
googleAuthR.batch_endpoint = "https://www.googleapis.com/batch/bigquery/v2"
)
options(googleAuthR.httr_oauth_cache = "bq.oauth")
toset <- !(names(op.bigQueryR) %in% names(op))
if(any(toset)) options(op.bigQueryR[toset])
invisible()
}
.onAttach <- function(libname, pkgname){
if(Sys.getenv("GAR_CLIENT_JSON") != ""){
googleAuthR::gar_set_client(json = Sys.getenv("GAR_CLIENT_JSON"))
}
needed <- c("https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/bigquery")
googleAuthR::gar_attach_auto_auth(needed,
environment_var = "BQ_AUTH_FILE")
if(Sys.getenv("BQ_DEFAULT_PROJECT_ID") != ""){
.bqr_env$project <- Sys.getenv("BQ_DEFAULT_PROJECT_ID")
packageStartupMessage("Set default project to '", Sys.getenv("BQ_DEFAULT_PROJECT_ID"),"'")
}
if(Sys.getenv("BQ_DEFAULT_DATASET") != ""){
.bqr_env$dataset <- Sys.getenv("BQ_DEFAULT_DATASET")
packageStartupMessage("Set default dataset to '", Sys.getenv("BQ_DEFAULT_DATASET"),"'")
}
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.