rmarkdownでbookdownを使用してhuxtableテーブルキャプションを作成するにはどうすればよいですか？

Question

私はrmarkdownに多数のhuxtableテーブルを持っています。 bookdownを使用して字幕を付けたいと思います。これまでは、「他のRパッケージがテーブルを生成する」（上記の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 = TRUE) 
library(huxtable) 
library(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の

表を（＃タブ：バー）：

表1：フー

表2：バー

感謝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 = TRUE) 
library(huxtable) 
library(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('(#tab:bar) Bar') 
ht 
```