在R中的PPT中添加图

Question

使用reportrs pacakge，我正在尝试添加几个图形（.png/.jpg），这些图被称为例如。Test-0，Test-1，Test-2等到PPTX文件。这些图已从名为e.g的PDF中提取。使用im.convert函数进行测试。我可以单独添加它们，但无法在循环中自动化图形，标题，幻灯号，日期等的代码，这些代码可以在文件夹中弄清楚带有"测试"名称的数量，然后在新的幻灯ATA时间和一个最终的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")

Answer 1

您可以尝试使用list.files函数以在文件夹中的名称测试找到PNG文件的数量。示例代码：

list_of_files=list.files(path = "C:/output_folder", pattern = c("Test",".png"))
library("ReporteRs")
doc <- pptx()
doc <- pptx(template = templateDir)
for( i in 0:(length(list_of_files)-1))
{
  doc <- addSlide( doc, slide.layout = 'Competative Landscape' )
  doc <- addTitle(doc, paste0("Test-",i))
  doc <- addImage(doc, paste0("Test-",i,".png"))
}  

Answer 2

您也可以尝试Eoffice软件包：

install.package("eoffice")
fig<-infigure("figes",savegg=T)
topptx(fig,file="test.pptx")
##or 
infigure("figs",showfig=T)
topptx(fig,file="test.pptx")