0

reportRs パッケージを使用して、たとえば test-0、test-1、test-2 などの名前のいくつかのグラフ (.png/.jpg) を pptx ファイルに追加しようとしています。これらのグラフは、im.convert 関数を使用して、たとえば test という名前の pdf から抽出されています。それらを個別に追加することはできますが、グラフ、タイトル、スライド番号、日付などのコードをループで自動化することはできません。テストの名前がフォルダーにあり、それらを一度に新しいスライドと1つの最終的な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")
4

2 に答える 2

2

list.files 関数を使用して、フォルダー内の Test という名前の 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"))
}
于 2016-06-23T14:07:04.100 に答える