使用magick在r

Question

magick

但是，我很难获得image_write命令接受文件名向量以自动化此过程。例如，我想从我的目录“测试”中的.png图像中制作100页的PDF：

library(magick)

img1 <- image_read("image1.png")
img2 <- image_read("image2.png")

image_write(c(img1, img2), format = "pdf", "check.pdf")

我认为

all_images <- list.files("test")

可能会有所帮助，但没有运气：purrr

任何想法？

您需要使用

library(purrr)

image_write(map(all_images, image_read), format = "pdf", "check.pdf")

.

来连接不同的对象。

与做

"magick-image

Answer 1

c(img1,img2,img3,...)

功能是矢量化的。因此，您可以做：

all_images_1 <- purrr::reduce(
    purrr::map(all_images,image_read),
    c
)

image_write(all_images_1 , format = "pdf", "check.pdf")

这将图像彼此放置，但不在单页上。