if (rmarkdown::pandoc_available("2.0.6")) {
library(flextable)
ft <- flextable(
data.frame(
x = c("**foo** bar", "***baz***", "*qux*"),
stringsAsFactors = FALSE
)
)
ft <- compose(ft, j = "x", i = 1:2, value = as_paragraph_md(x))
autofit(ft)
}
Run the code above in your browser using DataLab