## Not run:
# ## an example of an authenticated request after creating the OAuth token
# ## where app_id and app_secret are fictitious, and token is saved for
# ## future sessions
# my_oauth <- instaOAuth(app_id="123456789", app_secret="1A2B3C4D")
# save(my_oauth, file="my_oauth")
# load("my_oauth")
# obama <- searchInstagram(tag="obama", token=my_oauth)
# ## End(Not run)
Run the code above in your browser using DataLab