R 테이블 생성 시 cross-reference 미동작

[choonghyunryu]

현황

• knitr::kable()이나 gt::gt() 함수로 테이블을 생성할 때,
• cross-reference가 동작하지 않음

작업 내용

• gt를 기본 테이블로 정하고,
• 다음과 같은 as_latex_with_caption() 함수를 정의해서 문제해결

as_latex_with_caption <- function(gt, label, caption) {
  gt <- gt::as_latex(gt)

  caption <- paste0(
    "\\caption{\\label{", label, "}", caption, "}")

  latex <- strsplit(gt[1], split = "\n")[[1]]
  latex <- c(latex[-length(latex)], caption, latex[length(latex)])
  latex <- paste(latex, collapse = "\n")
  gt[1] <- latex

  gt
}

사용법

다음은 표 \ref{tab-r}\를 생성합니다.

```{r}
#| eval: true
#| echo: false
tab <- tibble::tribble(
  ~기본값, ~`왼쪽 정렬`, ~`가운데 정렬`, ~`오른쪽 정렬`,
  "내용 1", "내용 2", "내용 3", "내용 4",
  "내용 5", "내용 6", "내용 7", "내용 8",
  "내용 9", "내용 10", "내용 11", "내용 12"
)

tab |> 
  gt::gt() |> 
  gt::cols_align(align = "left", columns = `왼쪽 정렬`) |> 
  gt::cols_align(align = "center", columns = `가운데 정렬`) |> 
  gt::cols_align(align = "right", columns = `오른쪽 정렬`) |>
  as_latex_with_caption(label = "tab-r", caption = "R 기반 표")