将页脚添加到flextable并使用“军官”导出到pptx时会损坏pptx

Question

在使用“军官”将柔性表导出到* .pptx时，如果柔性表具有页脚，则似乎损坏了电源点，需要对其进行修复。

我尝试使用其他页脚功能。我还尝试添加标题，以查看类似的代码是否引发错误。添加标题似乎很好。 我还尝试过回官0.3.3。

• Officer v。0.3.4
• flextable为0.5.4版
• R是3.6.0“植树”

library(officer)
library(flextable)
library(dplyr)

pdoc <- read_pptx()

footer <- "foot"
header <- "head"
myft <- iris %>% head() %>% flextable() 


myft <-   myft %>% add_header_lines( values = header) 

pdoc <- pdoc %>% 
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_flextable(myft , type = "body")

print(pdoc, "test1passes.pptx")

myft <-   myft %>%  add_footer_lines( values = footer) 


pdoc <- pdoc %>% 
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_flextable(myft , type = "body")


print(pdoc, "test2fails.pptx")

我可以毫无问题地打开“ test1passes.pptx”文件。 当我打开“ test2fails.pptx”时，我从pptx收到一条错误消息，提示我希望可以正常打开该文件时该文件已损坏。