(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')
Run the code above in your browser using DataLab