if (FALSE) {
# see the current user-configured OAuth app (probaby `NULL`)
gm_oauth_app()
if (require(httr)) {
# store current state, so we can restore
original_app <- gm_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"
)
gm_auth_configure(app = google_app)
# confirm current app
gm_oauth_app()
# restore original state
gm_auth_configure(app = original_app)
gm_oauth_app()
}
# bring your own app via JSON downloaded from Google Developers Console
gm_auth_configure(
path = "/path/to/the/JSON/you/downloaded/from/google/dev/console.json"
)
}
Run the code above in your browser using DataLab