if (FALSE) {
# Get a credential provider with default settings
cred <- get_credential_provider(
scope = "https://graph.microsoft.com/.default",
tenant_id = "my-tenant-id"
)
# Use the credential to get a token
token <- cred$get_token()
}
Run the code above in your browser using DataLab