Добавление флештаба, включая изображения в PowerPoint

Я пытаюсь добавить изменяемый объект, включая изображение, в PowerPoint с помощью офицера. Но изображение пропадает. Я могу воспроизвести проблему на примере, который Дэвид опубликовал услышать

library(flextable)
library(tibble)
download.file("https://www.r-project.org/logo/Rlogo.png", destfile = "Rlogo.png")
pupil.tbl <- tribble(
    ~col1, ~col2, ~col3,
    "A", "B", "Rlogo.png",
    "C", "D", "Rlogo.png"
) 
pupil.tbl <- as.data.frame(pupil.tbl)

# display only col1 and col2
pupil.ft <- flextable(pupil.tbl, col_keys = c("col1", "col2") )

add_img_to_flextable <- function(ft, i, j){
display(
   ft, i=i, col_key = j, pattern = "{{att_tbl}}",
   formatters = list(# use col3 even if not displayed
        att_tbl ~ as_image(col3, src = col3, width = 1.29, height = 1)
   )
)
}

pupil.ft <- add_img_to_flextable(pupil.ft, i = 2, j = "col2")

Если я бегу:

print(pupil.ft,preview='html')
print(pupil.ft,preview='docx')

все работает нормально, но в формате PPTX изображение больше не отображается print (pupil.ft, preview = 'pptx')

Это известное ограничение PowerPoint? Есть ли способ показать изображения внутри таблицы?

Спасибо,

Филипп