Authenticate using device flow — device_flow

Get an ID token using the OpenIDConnect Device Flow.

device_flow_auth(endpoint, client_id, scopes = c("openid", "offline_access"))

Arguments

endpoint	An `oauth_endpoint` with a device endpoint specified in it
client_id	The client ID for which the token should be obtained
scopes	the requested scopes, default to `c("openid", "offline_access")`

The credentials retrieved from the token endpoint

if (FALSE) {
endpoint <- discover("https://auth.molgenis.org")
device_flow_auth(endpoint, "b396233b-cdb2-449e-ac5c-a0d28b38f791")
}