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

rio/R/compression.R

Line 2 in 479a765

if (grepl("zip$", f)) {

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}