r - 带有 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" .