## Not run:
# res <- occ_search(mediaType = 'StillImage', return = "media")
# gbif_photos(res)
# gbif_photos(res, which='map')
#
# res <- occ_search(scientificName = "Aves", mediaType = 'StillImage', return = "media", limit=150)
# gbif_photos(res)
# gbif_photos(res, output = '~/barfoo')
# ## End(Not run)
Run the code above in your browser using DataLab