# NOT RUN {
img.file <- file.path( R.home("doc"), "html", "logo.jpg" )
library(officer)
myft <- flextable( head(iris))
myft <- compose( myft, i = 1:3, j = 1,
 value = as_paragraph(
   as_image(src = img.file, width = .20, height = .15),
   " blah blah ",
   as_chunk(Sepal.Length, props = fp_text(color = "red"))
 ),
 part = "body")
ft <- autofit(myft)
ft
# }
Run the code above in your browser using DataLab