if (FALSE) {
# Get a 2-legged token with the "data:read" and "data:write" scopes
resp <- getToken(id = Sys.getenv("client_id"), secret = Sys.getenv("client_secret"),
scope = "data:write data:read")
myToken <- resp$content$access_token
}
Run the code above in your browser using DataLab