flextable 0.8.2更新后表格自动命名与编号功能消失求助

问题说明 #

升级flextable到0.8.2版本后，生成HTML文件时表格的自动编号、“Table”标识消失，交叉引用功能无法正常工作，即使使用官方示例代码也存在该问题。

解决方法 #

flextable 0.8.2对HTML输出的标题渲染逻辑做了调整，需通过以下步骤恢复功能：

1. 切换到bookdown文档输出格式 #

普通的html_document不支持表格自动编号和交叉引用，改用bookdown::html_document2格式，它原生支持这类功能。修改YAML头部：

---
title: "flextable caption example"
output: bookdown::html_document2
link-citations: true
---

2. 调整set_caption的使用方式 #

如果使用set_caption添加标题，需明确指定编号前缀，并关闭HTML转义：

library(officer)
set_caption(ft, 
  caption = as_paragraph(run_autonum(seq_id = "tab", pre_label = "Table ", bkm = "tab1"), " airquality dataset"), 
  style = "Table Caption",
  html_escape = FALSE)

3. 保留knitr chunk选项的使用 #

使用chunk选项tab.cap、tab.id和label的方式，在bookdown格式下会自动生成带编号和“Table”前缀的标题，交叉引用\@ref(tab:tab2)也能正常解析。

修改后的完整示例代码 #

---
title: "flextable caption example"
output: bookdown::html_document2
link-citations: true
---

```{r include=FALSE}
library(knitr)
library(flextable)
library(bookdown)
opts_chunk$set(echo = FALSE)

ft <- qflextable(head(airquality))

Now, let's add a caption with set_caption:

library(officer)
set_caption(ft, 
  caption = as_paragraph(run_autonum(seq_id = "tab", pre_label = "Table ", bkm = "tab1"), " airquality dataset"), 
  style = "Table Caption",
  html_escape = FALSE)

Or use knitr chunk options:

ft

• This is a reference to flextable @ref(tab:tab1).
• This is a reference to flextable @ref(tab:tab2).

• This is a link to flextable

## 用户环境信息

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