# NOT RUN {
library(officer)
myft <- flextable( head(iris, n = 10 ))
myft <- compose( myft, j = 1,
value = as_paragraph(
minibar(value = Sepal.Length, max = max(Sepal.Length)),
" ",
as_chunk( Sepal.Length, formater = formatC,
props = fp_text(color = "orange") ),
" blah blah"
),
part = "body")
autofit(myft)
# }
Run the code above in your browser using DataCamp Workspace