if (FALSE) {
# Retrieve OAuth credentials for an integration
creds <- getOAuthCredentials("4c1cfecb-1927-4f19-bc2f-d8ac261364e0")
if (!is.null(creds)) {
cat("Access token:", creds$access_token, "\n")
cat("Expires at:", format(creds$expiry), "\n")
}
}
Run the code above in your browser using DataLab