# NOT RUN {
ft <- flextable( head(iris, n = 10 ))
ft <- compose(ft, j = 1,
value = as_paragraph(
minibar(value = Sepal.Length, max = max(Sepal.Length))
),
part = "body")
ft <- autofit(ft)
ft
# }
Run the code above in your browser using DataLab