library(officer)
big_border <- fp_border(color = "orange", width = 3)
ft <- flextable(head(iris))
ft <- border_remove(x = ft)
# add a thick line at the bottom of the body
ft <- hline_bottom(ft, part = "body", border = big_border)
ft
Run the code above in your browser using DataLab