При добавлении нижнего колонтитула в гибкую таблицу и экспорте в pptx с помощью 'employee' портится pptx. - PullRequest
Новая
       18

При добавлении нижнего колонтитула в гибкую таблицу и экспорте в pptx с помощью 'employee' портится pptx.

0 голосов
/ 16 мая 2019

При экспорте гибкого файла в * .pptx с использованием «Officer», если у гибкого файла есть нижний колонтитул, кажется, что он повредил точку питания и требует ремонта.

Я пробовал использовать другие функции нижнего колонтитула.Я также попытался добавить заголовок, чтобы увидеть, если этот аналогичный код выдает ошибку.Добавление заголовков кажется нормальным.Я также попытался вернуться к сотруднику v. 0.3.3.

  • Офицер v. 0.3.4
  • гибкий - v. 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, в котором говорится, что файл поврежден, когда я ожидал, что он должен открыться без проблем.

...