# NOT RUN {
library(officer)
ft <- flextable( head(iris))
ft <- compose( ft, j = "Sepal.Length",
 value = as_paragraph(
   "Sepal.Length value is ",
   as_chunk(Sepal.Length, props = fp_text(color = "red"))
 ),
 part = "body")
ft <- color(ft, color = "gray40", part = "all")
ft <- autofit(ft)
ft
# }
Run the code above in your browser using DataLab