Officer:如何插入图片的原始宽度和高度

Officer: How to insert picture with it's original width and height

如标题所示:我想在我的 .docx 文档中添加一些外部图像。但是当使用 body_add_img 时,我需要指定宽度和高度。有没有办法将它们设置为要添加的原始图像的宽度和高度?

为什么我需要那个?我的图像(大约 50 张)具有所有不同的宽度和高度,因此手动将它们的宽度和高度放入(大约 50)body_add_img 调用中会很痛苦。

如果您的图像是 png,您可以 png::readPNG 获取以像素为单位的宽度和高度,然后除以 DPI 以获取以英寸为单位的尺寸。 (将 300 替换为您的 DPI)

dpi <- 300
img_size <- dim(png::readPNG('image/path/here.png'))/dpi

编辑: 如果您希望文档中的 dpi 与图像中的 dpi 相同(假设您的 png 存储了 dpi,我认为并非所有人都这样做),请使用 dpi <- attr(readPNG('image.png', info=T), 'info')$dpi