library(officer)
std_border = fp_border(color="orange", width = 1)
dat <- iris[c(1:5, 51:55, 101:105),]
ft <- flextable(dat)
ft <- border_remove(x = ft)
# add inner vertical borders
ft <- border_inner_v(ft, border = std_border )
ft
Run the code above in your browser using DataLab