我可以在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")
```

---
标题：“html”
日期：“`r Sys.date（）`”
输出：
html_文件：
df_打印：第页
---
```{r setup，echo=FALSE，message=FALSE}
knitr:：opts_chunk$set（echo=FALSE）
图书馆（flextable）
图书馆（dplyr）
```
```{r生成表}
epi%
主题\u书籍标签（）%>%
自动拟合（part=“all”）%%>%
对齐（align=“center”，part=“all”）%%>%
合并（part=“header”）%>%
对齐（align=“center”）
```

它产生了以下结果：

在flextable主体中打印公式是否有合理的方法

---

我正在写讲稿。因此，支持解决方案的参考资料（建议阅读资料）将不胜感激。

对公式的支持是存在的，但有限。例如，不支持mathjax。谢谢您的回复。我找到了您设置标题/标签格式的示例，但我正在尝试将公式作为表格的单元格。是否有一个示例展示了如何在表体中嵌入公式？是的，使用part=“body”。除此之外，我没有其他资源可以提供。