如何为DT::datatable()添加可引用的表格编号标题？

我会根据数据行数交替使用knitr::kable和DT::datatable在报告中展示表格，需要这些表格带有编号，方便在文档内引用。

但目前遇到的问题是：以下代码中用DT::datatable生成的第一个表格无法正常生成标题和引用，我只能用不可靠的临时方案，或者完全手动给表格编号。

示例文档代码 #

---
title: "示例文档"
format: html
---

尝试引用DT生成的表格（@tbl-iris）时无法正常工作，但knitr::kable生成的表格（@tbl-iris2）可以正常生成标题和引用。

DT表格代码 #

#| label: tbl-iris
#| tbl-cap: DT表格示例
DT::datatable(head(iris))

kable表格代码 #

#| label: tbl-iris2
#| tbl-cap: kable表格示例
knitr::kable(head(iris))

渲染结果 #

执行quarto render test.qmd后的输出如下：

内容的提问来源于stack exchange，提问作者January