如何在rmarkdown中使用bookdown创建huxtable表格标题？

Question

我的rmarkdown中有许多huxtable表。我想用bookdown给它们加上说明。到目前为止，我还不能使用"other R packages to generate tables“的bookdown说明来实现这一点(参见上面的URL )。

下面是一个遵循this answer中说明的示例

---
title: "huxtable-mwe"
site: bookdown::bookdown_site
output:
  bookdown::html_book
documentclass: book
---
```{r setup, include=FALSE}

knitr::opts_chunk$set(echo =真)

库(Huxtable)

库(Magrittr)

See table \@ref(tab:bar).

Table (\#tab:foo): Foo

```{r foo, echo=FALSE}

ht <- hux(

foo = c('foo'，'bar')

) %>%

set_all_borders(1)

ht

See table \@ref(tab:foo).

Table (\#tab:bar): Bar

```{r bar, echo=FALSE}

ht <- hux(

foo = c('bar'，'baz')

) %>%

set_all_borders(1)

ht

引用是有效的，但是我得到了下面的表格标题：

表(#tab: Foo )：Foo

表(#tab: Bar )：Bar

当我期待的时候：

表1: Foo

表2: Bar

感谢你的MWE。

Answer 1

已解决。使用set_caption(...)将标题放入<caption>...</caption>元素，并且不要转义标签：

---
title: "huxtable-mwe"
site: bookdown::bookdown_site
output:
  bookdown::html_book
documentclass: book
---

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo =真)

库(Huxtable)

库(Magrittr)

See table \@ref(tab:bar).

```{r foo, echo=FALSE}

ht <- hux(

foo = c('foo'，'bar')

) %>%

set_all_borders(1) %>%

set_caption('(#tab:foo) Foo')

ht

See table \@ref(tab:foo).

```{r bar, echo=FALSE}

ht <- hux(

foo = c('bar'，'baz')

) %>%

set_all_borders(1) %>%

Set_caption(‘(#制表符:栏)栏’)

ht