library(flextable)
set_flextable_defaults(
border.color = "orange"
)
z <- flextable(head(cars))
z <- theme_vanilla(z)
z <- vline(
z,
j = 1, part = "all",
border = officer::fp_border()
)
z <- vline(
z,
j = 2, part = "all",
border = fp_border_default()
)
z
init_flextable_defaults()
Run the code above in your browser using DataLab