如何在bookdown文档中对sjPlot::tab_model() html表进行编号

install.packages("sjPlot")
install.packages("bookdown")

---
title: "My Bookdown Document"
output: bookdown::html_document2
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(sjPlot)

# 生成sjPlot::tab_model()的HTML表
model <- lm(mpg ~ cyl + disp, data = mtcars)
tab <- tab_model(model)
tab

---
title: "My Bookdown Document"
output:
  bookdown::html_document2:
    css: styles.css
    includes:
      in_header: header.html
---

/* styles.css */

/* 表格编号样式 */
.table-number {
  font-weight: bold;
  margin-bottom: 10px;
}

/* 表格样式 */
.table-style {
  border-collapse: collapse;
}

.table-style th,
.table-style td {
  border: 1px solid black;
  padding: 5px;
}

<!-- header.html -->

<script>
  $(document).ready(function() {
    // 为HTML表格添加编号
    $(".tab_model").each(function(index) {
      var tableNumber = index + 1;
      var tableCaption = "<div class='table-number'>Table " + tableNumber + "</div>";
      $(this).prepend(tableCaption);
    });
  });
</script>

bookdown::render_book("index.Rmd", output_format = "bookdown::html_document2")