Using ftext function for fig.cap about officedown HOT 1 CLOSED

---
output: officedown::rdocx_document
---

```{r setup, include=FALSE}
library(officedown)
library(officer)
library(flextable)
fp_1 <- fp_text(color = "red")
fp_2 <- fp_text(color = "pink", bold = TRUE)
```

<!---BLOCK_TOC{seq_id: 'fig'}--->


::: {custom-style="Image Caption"}

<caption>
`r run_autonum(seq_id = 'fig', bkm = 'coco', pre_label = "Figure ")` `r ftext("This is red ",fp_1)` and `r ftext("this is pink ",fp_2)`
</caption>

:::

\@ref(fig:coco)


This is famous `mtcars` dataset:

```{r tab.cap='cars', tab.id='cars', first_column = TRUE}
qflextable(cars[1:10,])
```

aaaa

```{r tab.cap='mtcars', tab.id='mtcars', first_column = TRUE}
head(mtcars, n = 10)
```

This is a linked reference to a table: \@ref(tab:mtcars), its number is computed by Word 
and it's linked to the corresponding table when clicking on it.

This is a linked reference to an image: \@ref(fig:tsplot), its number is computed by Word 
and it's linked to the corresponding table when clicking on it.



```{r fig.cap="economics plot", fig.id = "tsplot", fig.cap.style="Image Caption"}
year <- function(x) as.POSIXlt(x)$year + 1900
with(ggplot2::economics, plot(date, unemploy / pop, type = "l"))
```