# NOT RUN {
def_cell <- fp_cell(border = fp_border(color="#00FFFF"))
def_par <- fp_par(text.align = "center")
ft <- flextable(mtcars)
ft <- style( ft, pr_c = def_cell, pr_p = def_par, part = "all")
ft <- style(ft, ~ drat > 3.5, ~ vs + am + gear + carb,
pr_t = fp_text(color="red", italic = TRUE) )
ft
# }
Run the code above in your browser using DataLab