if (FALSE) {
# Get a specific integration by GUID
integration <- getOAuthIntegration("4c1cfecb-1927-4f19-bc2f-d8ac261364e0")
if (!is.null(integration)) {
cat("Found integration:", integration$name, "\n")
cat("Authenticated:", integration$authenticated, "\n")
# Get credentials if authenticated
if (integration$authenticated) {
creds <- getOAuthCredentials(audience = integration$guid)
}
}
}
Run the code above in your browser using DataLab