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')