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