Create the new sequencing figure ids linked to section number about officedown HOT 3 CLOSED

---
title: "officedown Example"
date: "`r Sys.Date()`"
site: bookdown::bookdown_site
documentclass: book
biblio-style: apalike
link-citations: yes
description: "This is a minimal example of using the officedown package to write a Word document."
---



```{r include=FALSE}
library(knitr)
library(officedown)
library(officer)
library(magrittr)
opts_chunk$set(echo = TRUE)
any_zz <- list(
  run_word_field("STYLEREF 1 \\s"),
  ftext("."),
  run_autonum(seq_id = "fig", pre_label = "", post_label = "")
)
one_zz <- list(
  run_word_field("STYLEREF 1 \\s"),
  ftext("."),
  run_autonum(seq_id = "fig", start_at = 1, pre_label = "", post_label = "")
)
```


```{r}
block_toc(level = 1)
```


```{r}
block_toc(style = "Image Caption")
```

# Introduction {#intro}


```{r}
plot(iris[, 4:5])
```

::: {custom-style="Image Caption"}
图 `r run_bookmark("iris", any_zz)` plot of iris
:::

Reference of \@ref(fig:iris)



```{r}
plot(iris[, 1:2])
```

::: {custom-style="Image Caption"}
图 `r run_bookmark("iris2", any_zz)` plot of iris2
:::

Reference of \@ref(fig:iris2)

# Chapter 2 {#c2}


```{r}
plot(iris[, 2:3])
```

::: {custom-style="Image Caption"}
图 `r run_bookmark("iris3", one_zz)` plot of iris3
:::

Reference of \@ref(fig:iris3)