ft <- flextable(head(iris), col_keys = c("dummy"))
ft <- compose(ft,
i = 1, j = "dummy", part = "header",
value = as_paragraph(
" anything ",
as_sup("Sepal.Width")
)
)
ft <- autofit(ft)
ft
Run the code above in your browser using DataLab