# NOT RUN {
# see the current user-configured OAuth app (probaby `NULL`)
bq_oauth_app()
if (require(httr)) {
# store current state, so we can restore
original_app <- bq_oauth_app()
# bring your own app via client id (aka key) and secret
google_app <- httr::oauth_app(
"my-awesome-google-api-wrapping-package",
key = "123456789.apps.googleusercontent.com",
secret = "abcdefghijklmnopqrstuvwxyz"
)
bq_auth_configure(app = google_app)
# confirm current app
bq_oauth_app()
# restore original state
bq_auth_configure(app = original_app)
bq_oauth_app()
}
# }
# NOT RUN {
# bring your own app via JSON downloaded from GCP Console
bq_auth_configure(
path = "/path/to/the/JSON/you/downloaded/from/gcp/console.json"
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab