Изменить цвет шрифта в flextable в R

Question

Чао, у меня возникли проблемы с изменением цвета шрифта в моей гибкой таблице.

Версия R 3.5.2

Я работаю над этим объектом, так как мне нужно добавить таблицу в презентацию PPTX и для этого я, конечно, буду использовать пакет Officer. Позвольте мне показать вам фиктивный код и вывод:

library(officer)
library(flextable)

ppt <- read_pptx()
ppt <- add_slide( ppt,  layout = "Title and Content", master = "Office Theme")
ppt <- ph_with_text(ppt, "Title whatever", type = "title")   

df = head(mtcars)
ft = flextable(df)
ft <- bg(ft, i = 1, bg = "#FF0000", part = "body")
ft <- bg(ft, i = 1, bg = "#FF0000", part = "header")

ft <- fontsize(ft, i = 1, size = 15, part = "body")
ft <- fontsize(ft, i = 1, size = 20, part = "header")

ft <- color(ft, i = 1, color = "#FFFFFF", part = "body")
ft <- color(ft, i = 1, color = "white", part = "header")  

ft <- font(ft, i = 1, fontname = "Consolas", part = "header")

ft <- autofit(ft)    
ppt <- ph_with_flextable(ppt, ft)

if(file.exists("prova.pptx"))
  file.remove("prova.pptx")
print(x = ppt, target = "prova.pptx")

Как вы можете видеть, я применяю к таблице множество функций форматирования, но я заметил, что единственная, которая терпит неудачу, это функция "color".

Заголовок и первая строка таблицы должны быть белого цвета. Обратите внимание, что я попытался присвоить параметру "color" оба значения "white" и "#FFFFFF", но в обоих случаях это не работает.

Это еще более странно, учитывая, что все остальные параметры были успешно применены.

Чего мне не хватает в функции цвета из гибкой упаковки? Вы заметили ту же проблему (ошибка)?

Спасибо,

Чао

AM