if (FALSE) {
# with service account token
t <- token_fetch(
scopes = "https://www.googleapis.com/auth/drive",
path = "path/to/service/account/token/blah-blah-blah.json"
)
# or with an OAuth token
t <- token_fetch(
scopes = "https://www.googleapis.com/auth/drive",
email = "janedoe@example.com"
)
token_userinfo(t)
token_email(t)
tokens_tokeninfo(t)
}
Run the code above in your browser using DataLab