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