library(onbrand)
library(flextable)
df = data.frame(
A = c("e^x^", "text"),
B = c("sin(x~y~)", "**S**~x~"))
ft = flextable(df) |>
delete_part(part="header") |>
add_header(values =
list(A= "*Italics*",
B= "**Bold**") ) |>
theme_vanilla() |>
ft_apply_md(part="all")
ft
Run the code above in your browser using DataLab