## 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")
# ## End(Not run)
Run the code above in your browser using DataLab