# see and store the current user-configured OAuth client (probaby `NULL`)
(original_client <- ladder_oauth_client())
# see and store the current user-configured API key (probaby `NULL`)
(original_api_key <- ladder_api_key())
# 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", "client_secret_installed.googleusercontent.com.json",
package = "gargle"
)
ladder_auth_configure(path = path_to_json)
# this is also obviously a fake API key
ladder_auth_configure(api_key = "the_key_I_got_for_a_google_API")
# confirm the changes
ladder_oauth_client()
ladder_api_key()
# restore original auth config
ladder_auth_configure(client = original_client, api_key = original_api_key)
Run the code above in your browser using DataLab