R官包: Add slide numbers that reflect current slide position

Question

我是记者和官员软件包的狂热用户，目前正试图过渡到官员的 Powerpoint 工作流程。我正在使用包含幻灯片编号占位符的幻灯片模板。

使用 Reporters 时，我可以使用 doc <-addPageNumber( doc ) 添加幻灯片编号页码反射(reflect)了每张幻灯片在卡片组中的当前位置。我正在寻找 Office 中的相同功能，并在移动幻灯片时寻找幻灯片编号以适当更新。

当我使用 ph_with_text(doc, type = "sldNum", str = "slide 1") ，我需要提供一个带有静态数字或文本的字符串，并且它不会根据幻灯片在卡片组中出现的位置进行更新。例如，如果我知道我的幻灯片将是幻灯片 2，我可以输入 str = "2" ，但即使我将该幻灯片移动到演示文稿中的幻灯片 3 位置，幻灯片编号也会显示为 2。

我尝试使用 str = "" 将字符串留空或与 ph_empty(type= "sldNum")但这些会导致幻灯片上出现字符串“幻灯片编号”。

任何正确方向的帮助或指示将不胜感激!

Answer 1

完成演示后，我已经成功地使用带有 for 循环的officer 0.3.4 添加了页码。

library(officer)
library(magrittr)

my_pres <- read_pptx()  %>% 
  add_slide('Title Only', 'Office Theme') %>%
  ph_with(value = 'Slide 2 Title', location = ph_location_type(type = "title")) %>%
  add_slide('Title Only', 'Office Theme') %>%
  ph_with(value = 'Slide 3 Title', location = ph_location_type(type = 'title')) 

# add slide numbers starting on slide 2

n_slides <- length(my_pres)
for (i_slide in 2:n_slides) {
  my_pres <- my_pres %>%
    on_slide(index = i_slide) %>%
    ph_with(value = i_slide, location = ph_location_type('sldNum'))
}