if (rmarkdown::pandoc_available("2.0.6")) {
d <- data.frame(
x = c("**bold**", "*italic*"),
y = c("^superscript^", "~subscript~"),
z = c("***^ft^~Extra~** is*", "*Cool*")
)
colformat_md(flextable::flextable(d))
}
Run the code above in your browser using DataLab