Я работаю над автоматизацией отчета в офицере. Есть ли способ объединить один элемент, который выделен жирным шрифтом, с другими элементами для вывода в отчет? Например, я могу использовать block_list для создания фраз и вывода их в точку питания, но я не могу указать уровень, чтобы каждый элемент мог располагаться на отдельной строке. Ошибка возникает из-за неупорядоченного списка, желающего прочитать символьную строку вместо списка блоков, но я не уверен, как сохранить жирные атрибуты без списка блоков.
Я хочу: 
Спасибо! Вот что я попробовал:
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")