# see and store the current user-configured OAuth client (probably `NULL`)
(original_client <- bq_oauth_client())
# the preferred way to configure your own client is via a JSON file
# downloaded from Google Developers Console
# this example JSON is indicative, but fake
path_to_json <- system.file(
"extdata", "data", "client_secret_123.googleusercontent.com.json",
package = "bigrquery"
)
bq_auth_configure(path = path_to_json)
# confirm the changes
bq_oauth_client()
# restore original auth config
bq_auth_configure(client = original_client)
Run the code above in your browser using DataLab