# 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 DataCamp Workspace