fix download links file_url from query_gbif() output

[maRce10]

op <- query_gbif("Oophaga pumilio", "sound", cores = 1, pb = TRUE)

# this doesn't download anything
download_media(op, path = tempdir())

# its because they have some extra stuff after the file extension
op$file_url

We should remove this extra stuff