# NOT RUN {
# Generate the oauth_token object
oauth_token <- Auth(client.id = "150487456763-XXXXXXXXXXXXXXX.apps.googleusercontent.com",
client.secret = "TUXXXXXXXXXXXX_TknUI")
# Save the token object for future sessions
save(oauth_token, file="oauth_token")
# Load the token object
load("oauth_token")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab