gt表格中KaTeX公式无法在docx正确渲染的解决方案求助

问题根源 #

HTML依赖MathJax可以解析GT里用md()写入的LaTeX公式，但DOCX不支持这种解析逻辑，会直接把LaTeX代码当作普通文本显示。

方案1：Quarto条件式渲染 #

利用Quarto的格式检测功能，针对HTML和DOCX输出分别提供对应格式的公式内容：

保留原有的Quarto配置：

---
title: "Testing"
format: 
    docx: default
    html: default
---

修改R代码，根据输出格式切换公式写法：

library(gt)
library(dplyr)

# 判断当前输出格式是HTML还是DOCX
is_html <- knitr::is_html_output()

exibble |>
    select(currency, char) |>
    gt() |>
    tab_header(
        title = if(is_html){
            md("$$\\frac{1}{2}$$")  # HTML环境用LaTeX语法
        } else {
            md("½")  # DOCX环境用Unicode分数字符，简单公式直接适配
        }
    ) |>
    cols_label(
        currency = if(is_html){
            md("$$Currency_{1}$$")  # HTML下标用LaTeX语法
        } else {
            md("Currency₁")  # DOCX用Unicode下标字符
        }
    )

如果是复杂公式，Unicode字符无法满足需求，可借助equatior包生成DOCX支持的Office公式代码：

# 先安装依赖包：install.packages("equatior")
library(equatior)

# 将LaTeX公式转换为DOCX可识别的MathML代码
frac_mathml <- eq_parse("\\frac{1}{2}", output = "mathml")
currency_mathml <- eq_parse("Currency_{1}", output = "mathml")

exibble |>
    select(currency, char) |>
    gt() |>
    tab_header(
        title = if(is_html){
            md("$$\\frac{1}{2}$$")
        } else {
            html(frac_mathml)  # 用html()包裹MathML，GT导出DOCX时会自动识别
        }
    ) |>
    cols_label(
        currency = if(is_html){
            md("$$Currency_{1}$$")
        } else {
            html(currency_mathml)
        }
    )

方案2：用officer包后处理DOCX #

先导出GT表格为HTML，再通过officer包将表格导入DOCX，手动替换公式为DOCX原生格式：

library(gt)
library(dplyr)
library(officer)
library(rvg)

# 生成带LaTeX公式的GT表格
gt_table <- exibble |>
    select(currency, char) |>
    gt() |>
    tab_header(title = md("$$\\frac{1}{2}$$")) |>
    cols_label(currency = md("$$Currency_{1}$$"))

# 将GT表格保存为临时HTML文件
tmp_html <- tempfile(fileext = ".html")
gtsave(gt_table, tmp_html)

# 创建DOCX文档，导入HTML表格并替换公式
doc <- read_docx() |>
    body_add_html(tmp_html) |>
    # 将LaTeX文本替换为DOCX原生公式对象
    body_replace_text_at_bold("\\frac{1}{2}", run_eq("\\frac{1}{2}")) |>
    body_replace_text_at_bold("Currency_{1}", run_eq("Currency_{1}"))

# 保存最终的DOCX文件
print(doc, target = "test_table.docx")

注意：run_eq()函数来自rvg包，需要提前安装该依赖。

内容的提问来源于stack exchange，提问作者Omar