Hinzufügen von Plots zu einem PPT in R

Question

Mit ReportRs Pacakge, ich versuche, mehrere Grafiken (. Png /. Jpg), die als z. Test-0, Test-1, Test-2 usw. in eine PPTX-Datei. Diese Graphen wurden aus einem PDF mit der Bezeichnung z.B. Testen Sie mit im.convert-Funktion.Ich kann sie einzeln hinzufügen, aber nicht in der Lage, den Code für Grafiken, Titel, Folie Nummer, Datum usw. in Schleife zu automatisieren, die herausfinden kann, wie viele Grafiken mit "Test" Name sind in einem Ordner und dann Importieren Sie sie nacheinander in einer neuen Folie und einer abschließenden PPTX-Datei.

Beispielcode:

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

Sie könnten versuchen, die list.files mit der Funktion den nummber von PNG-Dateien mit dem Namen Test in einem Ordner zu finden. Beispielcode:

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")) 
}