Офицер - Ошибка при добавлении абзаца уровня 1 на существующий слайд

Я пытаюсь написать последовательность маркеров на одном и том же слайде со следующим R-кодом:

library(officer)
library(magrittr)

ppt <- read_pptx()

ppt <- ppt %>%
    add_slide(layout = "Title and Content", master = "Office Theme") %>%
    ph_with_text(type = "title", str = "FFT power spectrum") %>%
    ph_with_text(type = "body", str = "no visual discrimination") %>%
    ph_add_par(level = 1L) %>%
    ph_add_text(str = "whole trajectories")


print(ppt, target = "test.pptx") %>% invisible()

... который терпит неудачу, говоря ...

Error in doc_parse_raw(x, encoding = encoding, base_url = base_url, as_html = as_html,  : 
  Premature end of data in tag p line 1 [77]

Когда я изменяю параметр уровня на

ph_add_par(level = 2L)

он отлично работает (как показано на виньетке: https://cran.r-project.org/web/packages/officer/vignettes/powerpoint.html)

Что мне здесь не хватает?


r officer
person rcst    schedule 11.08.2017    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Это была ошибка, спасибо, что сообщили об этом. Вы можете получить версию для разработчиков с помощью devtools::install_github("davidgohel/officer").

А ниже немного измененный скрипт:

library(officer)
library(magrittr)

default_font <- fp_text(font.family = "Calibri", font.size = 0)

ppt <- read_pptx()

ppt <- ppt %>%
  add_slide(layout = "Title and Content", master = "Office Theme") %>%
  ph_with_text(type = "title", str = "FFT power spectrum") %>%
  ph_with_text(type = "body", str = "no visual discrimination") %>%
  ph_add_par(level = 1L, type = "body") %>%
  ph_add_text(str = "whole trajectories", type = "body", style = default_font )


print(ppt, target = "test.pptx") %>% browseURL()
person David Gohel    schedule 11.08.2017