rmarkdown 中的编号 gt 表

Question

我想编号我用rmarkdown 渲染的 pdf 中的 >gt 包。
我尝试过的
在 Markdown 文档中，定义一个函数 f，每次调用时都会递增一个变量：

---
title: "."
output: bookdown::pdf_document2
---

```{r}
library(gt)
.i <- 1
f <- function() {.i <<- .i + 1 ; as.character(.i)}
```
```{r numbered_kable}
knitr::kable(head(mtcars,2), caption = "bla")|> kableExtra::kable_styling(latex_options = "HOLD_position")
```
```{r numbered_but_ugly}
mtcars |> head(2) |> 
  gt() |>
  tab_header(
    glue::glue("{f()} blabla2")
  )
```

这可行，但如果图形和表格都需要编号，则有点复杂。
问题
使用 gt 包对图形和表格进行编号的最佳方法是什么？

Answer 1

有一个 交叉引用版本似乎正在工作

devtools::install_github("rstudio/gt", ref="eff3be7384365a44459691e49b9b740420cd0851")

-markdown 代码

---
title: "."
output: bookdown::pdf_document2
---

```{r}
library(gt)
library(dplyr)
```

```{r numbered_gt}
mtcars %>% 
 head(2) %>% 
  gt() %>%
  tab_header(title="blabla2",
         label="tab:tab1")
```

-output

Answer 2

之前的答案在我的电脑上不起作用。
在 gt 包的“0.9.0.9000”版本中，可以使用以下模板：

``{r title-to-latex-ref}

mtcars %>% 
 head(2) %>% 
  gt(caption="caption-to-display") %>%
  tab_header(title="mytitle")

表格 \ @ref(tab:caption-to-latex-ref)是交叉引用的。

尽管缺乏适当的格式，但我希望我能有所帮助。