library(officer)
std_border <- fp_border(color = "orange")
ft <- flextable(head(iris))
ft <- border_remove(x = ft)
# add vertical border on the left side of the table
ft <- vline_right(ft, border = std_border)
ft
Run the code above in your browser using DataLab