# NOT RUN {
ft <- flextable(head(iris))
ft <- footnote( ft, i = 1, j = 1:3,
value = as_paragraph(
c("This is footnote one",
"This is footnote two",
"This is footnote three")
),
ref_symbols = c("a", "b", "c"),
part = "header")
ft <- valign(ft, valign = "bottom", part = "header")
# }
# NOT RUN {
ft <- autofit(ft)
# }
Run the code above in your browser using DataLab