## Not run:
# ## See examples for instaOAuth to know how token was created.
# ## Searching and downloading 100 public media that mention #obama
# load("my_oauth")
# obama <- searchInstagram( tag="obama", token=my_oauth, n=100, folder="obama")
# ## Searching and downloading pictures sent from Times Square with a minimum date
# ## of 2013-12-31 and a maximum date of 2014-01-01
# tsq <- searchInstagram( lat=40.7577, lng=-73.9857, distance=500,
# token=my_oauth, n=500, folder="timessquare",
# mindate="2014-12-31", maxdate="2014-01-01")
# ## End(Not run)
Run the code above in your browser using DataLab