尝试使用R缩小TIFF或JPEG的文件大小

Question

我正在尝试减小R中TIFF或JPEG的文件大小。这与弹出的相关问题不一样，原因有两个。一，我没有看到任何使用R的语言，R是我所知道的唯一语言。第二，我已经用R压缩了它，这是发布问题的典型答案，但是我需要更多的简化。我觉得必须有一种方法来减少图像类型的质量（我愿意这样做）以减小文件大小。

library(jpeg)
library(tiff)
f <- system.file("ortho.img", package="jpeg")
img <- readJPEG("ortho.jpg", native = FALSE)
writeTIFF(img, "test.tif", bits.per.sample = 8L, compression = "JPEG", reduce = TRUE)