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

Answer 2

您可以使用该zip函数创建 csv 文件的压缩版本。

mtcars %>% write_csv('foocars.csv')
zip("foocars.zip", "foocars.csv")

这应该适用于所有平台，但请注意使用了外部程序。根据手册页zip：

在类 Unix 上，'zip' 的默认值将默认使用 'R_ZIPCMD' 的值，如果在配置过程中找到了 'unzip' 命令，则在 'etc/Renviron' 中设置该值。在 Windows 上，默认依赖于路径中的“zip”程序（例如来自 Rtools 的程序）。