r:readr:write_csv 如何压缩文件？

Question

20MB+ 的 CSV 文件发送电子邮件是不礼貌的。用户如何用最少的代码压缩文件？

非压缩任务是：

mtcars %>% write_csv('foocars.csv')              

read_csv 可以很好地查看扩展并进行解压缩。什么是最简单的方法（不正确的代码）

mtcars %>% write_csv('foocars.csv.zip')               
mtcars %>% write_csv('foocars.csv',zipIt=T)       

请不要使用 linux tar 或 gz。它必须是为了赢得用户。

Answer 1

对于 .gz 似乎是可能的。这不是完整的答案，因为我需要 .zip

write_csv(mtcars,gzfile('mtcars.csv.gz'))
testingIt<-read_csv('mtcars.csv.gz')