Различные форматы текста плюс вывод маркеров в R с использованием Officer - PullRequest
Новая
       73

Различные форматы текста плюс вывод маркеров в R с использованием Officer

0 голосов
/ 08 апреля 2020

Я работаю над автоматизацией отчета в офицере. Есть ли способ объединить один элемент, который выделен жирным шрифтом, с другими элементами для вывода в отчет? Например, я могу использовать block_list для создания фраз и вывода их в точку питания, но я не могу указать уровень, чтобы каждый элемент мог располагаться на отдельной строке. Ошибка возникает из-за неупорядоченного списка, желающего прочитать символьную строку вместо списка блоков, но я не уверен, как сохранить жирные атрибуты без списка блоков.

Я хочу: enter image description here

Спасибо! Вот что я попробовал: 

library(magrittr)
library(officer)

fp_normal <- fp_text(font.size = 24)
fp_bold <- update(fp_normal, bold = TRUE)
fp_red <- update(fp_normal, color = "red")

pars <- block_list(
  fpar(ftext("not bold ", fp_normal), ftext("and bold", fp_bold)),
  fpar(ftext("red text", fp_red))
)

ul <-  unordered_list(
   level_list = c(1, 2),
  str_list = list(pars)
)

my_pres <- read_pptx() %>%
  add_slide(layout = "Title and Content", master = "Office Theme") %>%
  ph_with(ul, location = ph_location_type(type = "body") ) 

print(my_pres, target = "test.pptx")
...