带有 MS-Word 输出的 Bookdown 中的表交叉引用？

Question

如何使表格交叉引用在具有所有输出格式 pdf、docx 和 html 的 bookdown 文档中起作用？或者更具体地说，我怎样才能获得表格交叉引用flextables？

下面是一个最小的工作示例。第二个表，使用kable()，让我几乎一直到那里。问题是 docx 输出中的表格渲染完全无法使用（不是在这个 MWE 中，而是在我的实际用例中）。我考虑有条件地创建表格，flextable用于 docx 输出以及kablepdf 和 html 输出。flextable在 docx 输出中看起来不错。但是表引用不起作用！

---
title: "A Book"
author: "Frida Gomam"
site: bookdown::bookdown_site
documentclass: book
output:
  bookdown::word_document2: default
  bookdown::pdf_book: default
  bookdown::gitbook: default
---

# Hello World

```{r setup, include=FALSE}
library(dplyr)
library(flextable)
```

<!--- this tabulates in docx and html output --->
```{r, test01, echo = FALSE, eval = !knitr::is_latex_output()}
mtcars %>%
  head() %>%
  flextable() %>%
  set_caption("My caption!") %>%
  autofit()
```

<!--- this reference does not work in any form of output --->
Trying to reference Table \@ref(tab:test01). 

<!--- this tabulates in pdf, docx, html output (but very ugly in docx output) --->
```{r, test02, echo = FALSE}
mtcars %>%
  head() %>%
  knitr::kable(caption = "Need a caption!")
```

<!--- this reference works in pdf, docx, html output --->
Trying to reference Table \@ref(tab:test02). 

Answer 1

添加tab.cap="Your Caption"到knitr块选项：

```{r, test03, echo = FALSE, eval = !knitr::is_latex_output(), tab.cap="My flextable caption!"}
mtcars %>%
  head() %>%
  flextable() %>%
  autofit()
```

Reference to Table \@ref(tab:test03). 

请参阅此处了解更多表格标题选项。

这也可以正确地将数字添加到表中。如果您希望表格标题采用参考文档中指定的格式，例如“表格标题”或“标题”，则可以指定tab.cap.style = "Table Caption"。