captionerパッケージで図・表に対する参照(レファレンス)を取得する

http://datascienceplus.com/r-markdown-how-to-number-and-reference-tables/にあった話。
captionerパッケージを用いると、R Markdownの中での図表の参照を簡単に書くことができるというお話。

以下、簡単な例だが、こんな様に書けば図表に対する参照もできますよと。

---
title: ""
output: html_document
---

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

## Example of caption
Define caption.
```{r}
table_nums <- captioner::captioner(prefix = "Tab.")
tab.1_cap <- table_nums(name = "tab_1", caption = "German Bundesliga: Final Table 2015/16, Position 7-12")
```

Use it.

`r table_nums('tab_1')`
```{r fig.cap = tab.1_cap}
knitr::kable(mtcars[1:10, c(1,2,7,9)], align = c('c', 'l', 'c', 'c'), row.names = TRUE)
```

Define customized reference function.
```{r}
f.ref <- function(x) {
  stringr::str_extract(table_nums(x), "[^:]*")
}
```

Original version.
`r table_nums('tab_1')` says that ....

Customized one.
`r f.ref('tab_1')` says that ....