Используя пакет reportRs, я пытаюсь добавить несколько графиков (.png/.jpg), которые называются, например. test-0,test-1,test-2 и т. д. в файл pptx. Эти графики были извлечены из pdf-файла с именем, например. тест с использованием функции im.convert. Я могу добавить их по отдельности, но не могу автоматизировать код для графиков, заголовка, номера слайда, даты и т. д. в цикле, который может определить, сколько графиков с именем «тест» находится в папке, а затем импортируйте их в pptx один за другим в новый слайд одновременно и в один окончательный файл pptx.
образец кода:
library(animation)
im.convert("Test.pdf", output = "Test.png", extra.opts="-density 150")
library("ReporteRs")
doc <- pptx()
doc <- pptx(template = templateDir)
doc <- addSlide( doc, slide.layout = 'Competative Landscape' )
doc <- addTitle(doc, paste("Test-0"))
doc <- addImage(doc, "Test-0.png")
:
:
:
:
doc <- addSlide( doc, slide.layout = 'Competative Landscape' )
doc <- addTitle(doc, paste("Test-3"))`enter code here`
doc <- addImage(doc, "Test-3.png")