library(flextable)
dat <- data.frame(
label = c("Bold", "Link", "Code"),
content = c(
"This is **bold** text",
"Visit [Quarto](https://quarto.org)",
"Use `print()` here"
)
)
ft <- flextable(dat)
ft <- mk_par(ft, j = "content",
value = as_paragraph(as_qmd(content)))
ft
Run the code above in your browser using DataLab