使用 R 中的官员包删除演示文稿的幻灯片

Question

我正在使用 R 中的官员包将我的图作为输出传输到 power point 演示文稿。

每次我运行代码时，我都想确保 pptx 中没有我想要保存绘图的幻灯片。

现在我知道如何从演示文稿中删除一张幻灯片。但我不知道如何一次删除所有幻灯片。

到目前为止我的代码是：

    library(officer)

    # reading template slides and adding slide in which I want my plot 

    doc <- read_pptx("U://30-Power & Water//25 Renewables//WORK//Config//Templates//Template.pptx")

    doc <- add_slide(doc, layout = "Title and Content",master = "Office Theme")
    doc <- ph_with_gg(doc, value = Sweihan ) #plot = ggplot

    # Reading the output slides and removing slides (it is just removing one slide so far)    

    output <- read_pptx("U://30-Power & Water//25 Renewables//WORK//Result//Result.pptx")

    output <-  remove_slide(output)

    print(output, target = "U://30-Power & Water//25 Renewables//WORK//Result//Result.pptx" ) %>% invisible()

    # tranfering results to output ppt file
    print(doc, target = "U://30-Power & Water//25 Renewables//WORK//Result//Result.pptx" ) %>% invisible()

我可以在我的代码中使用officer包中的什么函数来一次删除所有幻灯片？

您的帮助将不胜感激！

问候

Answer 1

remove_slide 中 index 参数的文档是

用法： remove_slide(x, index = NULL)

index - 幻灯片索引，默认为当前幻灯片位置

因此，您可以按如下方式一次删除一张幻灯片：

for (n in rev(seq_len(length(output)))) {
    remove_slide(output, n)
}

#show number of slides
length(output)