# NOT RUN {
library(officer)
std_border = fp_border(color="orange")
ft <- flextable(head(iris))
ft <- border_remove(x = ft)
# add vertical borders
ft <- vline(ft, border = std_border )
ft
# }
Run the code above in your browser using DataCamp Workspace