example with footer rows

ft <- flextable( head( iris ),
                 col_keys = c("Species", "Sepal.Length", "Petal.Length", "Sepal.Width", "Petal.Width") )
ft <- add_header(x = ft, Sepal.Length = "length",
                 Sepal.Width = "width", Petal.Length = "length",
                 Petal.Width = "width", Species = "Species", top = FALSE )
ft <- add_header(ft, Sepal.Length = "Inches",
                 Sepal.Width = "Inches", Petal.Length = "Inches",
                 Petal.Width = "Inches", Species = "Species", top = TRUE )
ft <- merge_h(ft, part = "header")




ft <- add_footer(ft, Species = "This is a footnote")
ft <- merge_at(ft, i = 1, j = 1:5, part = "footer")
ft <- add_footer(ft, Species = "this is another footnote", top = FALSE )
ft <- merge_at(ft, i = 2, j = 1:5, part = "footer")
ft <- add_footer(ft, Species = "and a third one", top = FALSE)
ft <- merge_at(ft, i = 3, j = 1:5, part = "footer")
ft <- add_footer(ft, Species = "and a first one", top = TRUE)
ft <- merge_at(ft, i = 1, j = 1:5, part = "footer")
ft <- color(ft, i = 1, color = "orange", part = "footer")
ft <- align(ft, i = 2:3, align = "right", part = "footer")

ft <- theme_box(ft)
ft <- border(x = ft, border = fp_border(width = 0, color = "black"), part = "footer")
ft <- border(x = ft, i = 1, border.top = fp_border(width = 1, color = "black"), part = "footer")
ft <- border(x = ft, i = 4, border.bottom = fp_border(width = 1, color = "black"), part = "footer")
ft <- border(x = ft, j = 1, border.left = fp_border(width = 1, color = "black"), part = "footer")
# that's a known bug, because border display is the border of the merge cell
ft <- border(x = ft, j = 1, border.right = fp_border(width = 1, color = "black"), part = "footer")

ft <- autofit(ft)

print(ft, preview = "docx")