davidgohel · February 28, 2018 23:53
diff --git a/example with footer rows b/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")
No results found