## Not run:
# ## See examples for instaOAuth to know how token was created.
# ## Downloading list of users who liked @barackobama's most recent photo
# load("my_oauth")
# obama <- getUserMedia( username="barackobama", token=my_oauth, n=1)
# likes <- getLikes(obama$id[1], token=my_oauth)
# ## End(Not run)
Run the code above in your browser using DataLab