设置字体家庭和方程式的大小。

Question

我正在寻找一个选项来设置 flextable 中方程的字体系列和大小。

一般来说，表格、行和列的字体系列和大小可以通过糖函数 flextable::font 和 flextable::fontsize 设置。但是，无论是在 HTML 输出中还是在导出到 docx 时，两者都不会影响字体系列和方程的大小。

运行下面的 reprex 将为 text 列提供正确的字体系列和大小，但不会为 formula 列提供正确的字体系列和大小。

library(flextable)

# Note: Running the reprex requires the `equatags` package. 
# Also equatags::mathjax_install() must be executed
# to install necessary dependencies. See ?flextable::as_equation.

eqs <- c(
  "(ax^2 + bx + c = 0)",
  "a \\ne 0",
  "x = {-b \\pm \\sqrt{b^2-4ac} \\over 2a}"
)
text = LETTERS[1:3]
df <- data.frame(text = text, formula = eqs)
df
#>   text                                 formula
#> 1    A                     (ax^2 + bx + c = 0)
#> 2    B                                a \\ne 0
#> 3    C x = {-b \\pm \\sqrt{b^2-4ac} \\over 2a}

ft <- flextable(df)
ft <- compose(
  x = ft, j = "formula",
  value = as_paragraph(as_equation(formula, width = 2))
)
ft <- width(ft, j = 2, width = 2)
ft <- fontsize(ft, size = 20, part = "all")

fn <- tempfile(fileext = ".docx")
save_as_docx(ft, path = fn)
if (FALSE) fs::file_show(fn) # Set to TRUE to show file

Answer 1

要控制行高，您需要指定 hrule(ft, i = 1:3,rule = 'atleast') 以及通过 height_all 指定的高度（以英寸为单位）

ft <- flextable(df)
ft <- compose(
  x = ft, j = "formula",
  value = as_paragraph(as_equation(formula, width = 3, height = 2))
)
ft <- width(ft, j = 1:2, width = 2)
ft <- hrule(ft, i = 1:3, rule = 'atleast')
ft <- height_all(ft, height = 1)
ft <- fontsize(ft, size = 20, part = "all")

。 ，这不会改变方程的大小：

构成第二列的 mathjax 公式（包括文本字符）将呈现为 SVG 路径，并且它们的大小和字体系列都是固定的。

如果您深入研究 flextable 代码，您会发现当您执行

1. print(ft) 时，它会调用
2. flextable:::print.flextable ，而 flextable:::print.flextable 会调用
3. htmltools_value(ft) ，它调用
4. flextable:::html_str(ft)，它调用
5. flextable:::html_gen(ft)，生成实际的 html。

公式字符串直接在 html_gen 内部传递到 equatags::transform_mathjax，它不采用任何大小或字体系列参数，只是输出默认的 mathjax svg。 svg 图像以固定大小合并到表格单元格中。

为了改变 svgs 的大小，你需要参与 svg hacking，这在简单缩放的情况下并不太困难：

html_format <- as.character(htmltools_value(ft))
html_format <- gsub('<svg ',
                    '<svg transform=\"scale(2)\" ',
                    html_format, fixed = TRUE)

html_format 对象只是 svg 的 html 字符串。灵活并且可以渲染
像这样：

dir <- tempfile()
dir.create(dir)
htmlFile <- file.path(dir, "index.html")
writeLines(html_format, con = htmlFile)
rstudioapi::viewer(htmlFile)

导致

当然，这一切都不是理想的，但这只是 flextable 通过 equatags 呈现公式的方式的限制。

不幸的是，Mathjax 不允许使用任意字体，所以这会更难实现。