`find_compress()` incorrectly recognizes `gzip` as `zip`

[chainsawriot]

While solving #354

As an example:

rio::export(iris, tempfile(fileext = ".csv.gzip"))

gzip doesn't work, due to this

https://github.com/gesistsa/rio/blob/479a765a37b6cfad323778660121c8deaf0c874f/R/compression.R#L2

gzip is mistaken as zip.

[chainsawriot]

Actually, bzip2 and xz also don't work, but probably due to another issue.

[chainsawriot]

rio:::find_compress("file.gzip")$compress
#> [1] "zip"

^{Created on 2024-04-25 with reprex v2.1.0}