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

它产生了这个：

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

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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）