jwt_signature
Generate a JWT signature given credentials.
As described in https://developers.google.com/accounts/docs/OAuth2ServiceAccount
- Keywords
- internal
Usage
jwt_signature(credentials, scope, aud, sub = NULL,
iat = as.integer(Sys.time()), exp = iat + duration, duration = 60L
* 60L)
Arguments
- credentials
Parsed contents of the credentials file.
- scope
A space-delimited list of the permissions that the application requests.
- aud
A descriptor of the intended target of the assertion. This typically comes from the service auth file.
- sub
The email address of the user for which the application is requesting delegated access.
- iat
The time the assertion was issued, measured in seconds since 00:00:00 UTC, January 1, 1970.
- exp
The expiration time of the assertion, measured in seconds since 00:00:00 UTC, January 1, 1970. This value has a maximum of 1 hour from the issued time.
- duration
Duration of token, in seconds.
- iss
Email address of the client_id of the application making the access token request.
- scope
A space-delimited list of the permissions that the application requests.
Examples
# NOT RUN {
cred <- jsonlite::fromJSON("~/Desktop/httrtest-45693cbfac92.json")
jwt_signature(cred, "https://www.googleapis.com/auth/userinfo.profile")
# }