具有自定义图像大小的 body_add_img

Question

我想将图像添加到一系列 docx.files。 但我不想改变它们的大小 - 每个图像都有不同的宽度和高度。我如何为每个想象指定这个：

 sample_doc %>% body_add_img(paste0(data_base$Skizze[[x]],".JPG"),width = 5.5, height = 5.5)

我需要分别获取每个图像的高度和宽度以覆盖它。我怎么能这样做？

Answer 1

您可以使用readJPEG 从jpeg 读取每个文件并使用dim：

library(jpeg)
img <- readJPEG("pic.jpg")

dim(img)

前两个元素是像素，第三个总是 3 (R, B, G)。现在您将像素除以 96，得到以英寸为单位的宽度和高度，您可以使用这些值循环浏览图片列表。