我可以在R Markdown HTML flextable的主体中包含公式

如何解决我可以在R Markdown HTML flextable的主体中包含公式

我想在R Markdown HTML文档的flextable主体中包含带有希腊字母和下标的公式。我下面的代码尽可能地接近。

---
title: "html"
date: "`r Sys.Date()`"
output:
  html_document:
    df_print: paged
---

```{r setup,echo = FALSE,message=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(flextable)
library(dplyr)
```


```{r make-table}
epi <- data.frame(label= c("Exposured","Not Exposed"),Yes = c("π_11","π_21"),No = c("π_12","π_22"))

theHeader <- data.frame(
  col_keys = colnames(`epi`),line1 = c("",rep("Has Outcome",2)),line2 = c("","Yes","No")
)

flextable(epi,col_keys = theHeader$col_keys) %>%
  set_header_df(
    mapping = theHeader,key = "col_keys"
  ) %>% 
  theme_booktabs() %>% 
  autofit(part = "all") %>%    
  align(align = "center",part = "all") %>% 
  merge_h(part = "header") %>% 
  align_nottext_col(align = "center")
```

它产生了这个：

是否有一种在柔性表体中打印公式的明智方法？

我正在写演讲笔记。因此，将非常感谢您提供支持解决方案的参考文献（建议读物）。