device_flow_auth {MolgenisAuth}

Authenticate using device flow

Description

Get an ID token using the OpenIDConnect Device Flow.

Usage

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")

Value

The credentials retrieved from the token endpoint

Examples

## Not run: 
endpoint <- discover("https://auth.molgenis.org")
device_flow_auth(endpoint, "b396233b-cdb2-449e-ac5c-a0d28b38f791")

## End(Not run)