When cells are merged, the rendered borders will be those of the first cell. If a column is made of three merged cells, the bottom border that will be seen will be the bottom border of the first cell in the column. From a user point of view, this is wrong, the bottom should be the one defined for cell 3. This function modify the border values to avoid that effect.
fix_border_issues(x, part = "all")
flextable object
partname of the table (one of 'all', 'body', 'header', 'footer')
# NOT RUN {
if( require(magrittr) ){
library(officer)
ft <- data.frame(a = 1:5, b = 6:10) %>%
flextable() %>%
theme_box() %>%
merge_at(i = 4:5, j = 1, part = "body") %>%
hline(i = 5, part = "body",
border = fp_border(color = "red", width = 5) )
print(ft)
fix_border_issues(ft) %>% print()
}
# }
Run the code above in your browser using DataLab