captioner を初期化

fig_cap <- captioner::captioner("図") とすることで図を参照するための関数を作ることができる． 他に "表" とか "式" とか入れて fig_tbl とか fig_eq とか作ればいいわけだけれど，それは面倒なので， lapply を使おう．

captioners <- lapply(c(fig = "図", tbl = "表"), captioner)

これで一度に初期化できた． captioners では名前が長いが， cap などとしておけば cap$fig() や cap$tbl() で相互参照できるので便利だ．

キャプションを振る時は相互参照に利用する名前を id に流用

相互参照に利用する名前をそのまま図表の id として利用できるように， captioners の引数を弄るかラッパー関数を作ろう．

Pandoc’s markdown では [hoge]{#fuga} とすることで 文字列 hoge に id fuga を与えられる． html に出力した時は <span id = "hoge">hoge</span> になる．

図表の name 引数に与えた文字列を利用して []{#name} という文字列を作り， caption 冒頭にでも入れてやればいい．

cap <- lapply(
    captioners,
    function(f) {
      formals(f) <- append(formals(f), alist(.caption = ), 1)
      formals(f)$caption <- quote(paste0("[]{#", name, "}", .caption))
      f
      # 以下のようにラッパー関数にしてもOK
      # function(name, caption = "", ...) {
      #   f(name, paste0("[]{#", name, "}", caption), ...)
      # }
    }
  )

参照する時は相互参照に利用する名前をリンクにする

先の cap の実装で，キャプションには id が振られている． この id にリンクされるよう，通常の captioner なら 図1 としか出力しないところを [図1]{#fuga} といった具合に出力されるよう，captioners をラッパーしよう．

cite <- lapply(
    captioners,
    function(f) {
      function(name, display = "cite", ...) {
        paste0("[", f(name, display = display, ...), "](#", name, ")")
      }
    }
  )

これで準備は完了だ．

plot()

`r cite$fig("plot-iris")` は 図 1 になる． ちゃんとリンクも貼れてるね． blogdown が図表の番号付けに対応しているせいで， Figure 1: 図 1: となってしまうのはご愛嬌．

```{r plot-iris, fig.cap = .cap}  
.cap <- cap$fig("plot-iris", "plot(iris) に図表番号とキャプション，idをつけた")  
plot(iris)
```

Figure 1: 図 1: plot(iris) に図表番号とキャプション，idをつけた

knitr::kable()

`r cite$tbl("kable-iris")` は 表 1 になる． ちゃんとリンクも貼れてるね．

library(knitr)
.cap <- cap$tbl("kable-iris", "kable(iris) に図表番号とキャプションとidをつけた．")
kable(iris[1:2, ], caption = .cap)

gt::gt()

gt は今のところ相互参照に対応していない (後述)． 従って captioner を使う他ない．

gtが受け取る文字列を md や html として解釈させるには md() や html() といった関数を用いる． しかし，この md() は Pandoc’s markdown を解釈してくれないようで，以下のように id 付けに失敗する．

library(gt)
gt(iris[1, ]) %>%
  tab_header(
    title = md(cap$tbl(
        "gt-iris", 
        "gt(iris) に図表番号とキャプションをつけたが，idはうまくついていない．"
      ))
    ) 

cap$tbl(
  "gt-iris2", 
  "gt(iris) に図表番号とキャプションをつけたが，idはうまくついていない．"
)
gt(iris[1, ])

cap <- lapply(
    captioners,
    function(f) {
      function(name, caption = "", ...) {
        f(name, paste0("<span id = '", name, "'></span>", caption), ...)
      }
    }
  )

gt(iris[1, ]) %>%
  tab_header(
    title = html(cap$tbl(
        "gt-iris3", 
        "gt(iris) に図表番号とキャプションをつけたが，idはうまくついていない．"
      ))
    ) 

```{r gt-iris, fig.cap = "gt with fig.cap", echo = FALSE}  
gt(iris[1, ])  
```

```{r gt-iris-titled, echo = FALSE}
gt(iris[1, ]) %>%
  tab_header(title = "gt with title")
```