Офицер: Как вставить картинку с оригинальной шириной и высотой

Question

Как в заголовке: я хотел бы добавить несколько внешних изображений в мой .docx документ. Но при использовании body_add_img мне нужно указать ширину и высоту. Есть ли способ установить для них ширину и высоту исходного изображения, которое будет добавлено?

Зачем мне это нужно? Мои изображения (около 50) имеют разную ширину и высоту, поэтому было бы больно вручную указывать их ширину и высоту в (около 50) body_add_img вызовах.

Answer 1

Если ваше изображение в формате 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