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