PDF 使用 magick 将大矢量文件转换为 R 中的小像素文件

Question

我喜欢在 R 中压缩 R 生成的 PDF 文件

pages <- magick::image_read_pdf("big.pdf")  
magick::image_write(pages, format = "pdf", "small.pdf", density=150, compress="zip")

完成了工作（100 MB 到 5 MB），但与控制台相比非常慢

magick -density 150 -compress zip big.pdf small.pdf

这可以做得更好吗？

Answer 1

我不知道为什么时间差异，但如果控制台命令更快，请尝试使用

system2

从 R 内进行系统调用。
参数行是从问题中复制并粘贴的，并用

scan

复制。

cmd <- "magick"
args <- scan(text = "-density 150 -compress zip big.pdf small.pdf", what = character())
system2(cmd, args)