Apply theme box to a flextable
theme_box(x)
x
a flextable object
ft <- flextable(iris) ft <- theme_box(ft)