Как я могу создать таблицы, хорошо отформатированные с форматированием в уценке при создании документа Word

Question

У меня есть следующие данные:

        Grup Tri_Varia_pc Ano_Situacao Ano_Varia_pc
        1 NA -0.8 * 7.8
        2 NA 1.3 NA 0.3
        3 * -0.6 NA -0.2
        4 NA 0.1 * -0.2
        5 NA -4.3 * 9.9
        6 NA -0.8 NA -2.3

Я хочу создать документ.docx с таблицей с использованием formattable или чего-либо еще. Я уже пытался использовать Webshot, но не смог установить. Я думаю, потому что в моей компании многие сайты заблокированы. Как я могу решить это?

            align_column=c("l","c","c")

            tab1 <- formattable(select(plan16a,c(1,3,5)),align=align_column, list(
    Ano_Varia_pc = formatter(
            "span",
            style = x ~ style(color =  if_else((x < 0 & plan16a$Ano_Situacao == "*"),"red",
                                               if_else((x > 0 & plan16a$Ano_Situacao == "*"),"green","blue"))),

            x ~ icontext(if_else(plan16a$Ano_Situacao == "*",
                                 ifelse(x < 0,"arrow-down","arrow-up"),
                                 "remove"), x)
    ),
    Tri_Varia_pc = formatter(
            "span",
            style = x ~ style(color =  ifelse(plan16a$Tri_Situacao == "*",
                                              ifelse(x < 0,"red", "green"), "blue")),

            # Incluindo os ícones de setas
            x ~ icontext(if_else(plan16a$Tri_Situacao == "*",
                                 ifelse(x < 0,"arrow-down","arrow-up"),
                                 "bullet"), x)
    )

))