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

Question

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

下面是一个最小的工作示例。第二张桌子，使用kable()，让我几乎一路走到了那里。问题是 docx 输出中的表格呈现完全不可用（不是在这个 MWE 中，而是在我的实际用例中）。我考虑有条件地创建表格，使用flextable 用于 docx 输出，kable 用于 pdf 和 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). 

有关更多表格标题选项，请参阅here。

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