# Create a custom chain with only non-interactive credentials
custom_chain <- credential_chain(
client_secret = ClientSecretCredential,
azure_cli = AzureCLICredential
)
# Use the custom chain to get a token
if (FALSE) {
token <- get_token(
scope = "https://graph.microsoft.com/.default",
chain = custom_chain
)
}
Run the code above in your browser using DataLab