if (FALSE) {
# see and store the current user-configured OAuth app (probaby `NULL`)
(original_app <- gads_oauth_app())
# see and store the current user-configured API key (probaby `NULL`)
(original_api_key <- gads_api_key())
if (require(httr)) {
# bring your own app via client id (aka key) and secret
google_app <- httr::oauth_app(
"my-awesome-google-api-wrapping-package",
key = "YOUR_CLIENT_ID_GOES_HERE",
secret = "YOUR_SECRET_GOES_HERE"
)
google_key <- "YOUR_API_KEY"
gads_auth_configure(app = google_app, api_key = google_key)
# confirm the changes
gads_oauth_app()
gads_api_key()
# bring your own app via JSON downloaded from Google Developers Console
# this file has the same structure as the JSON from Google
gads_auth_configure(path = app_path)
# confirm the changes
gads_oauth_app()
# use own developer token
gads_auth_configure(developer_token = 'Your developer token')
}
# restore original auth config
gs4_auth_configure(app = original_app, api_key = original_api_key)
}
Run the code above in your browser using DataLab