gt_bibtex_ref.Rmd

---
title: 'Tables with references'
author: dmi3kno
date: '2018-01-25'
abstract: |
  My goal was to prepare a minimum reproducible example.
output:
  pdf_document:
    citation_package: natbib
    keep_md: yes
  html_document: default
bibliography: some.bib
link_citations: true
---
```{r, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

# Section

Let's enter some text. \cite{R-base} gave us amazing tool. You can do a lot with R, especially if you use `tidyverse` [@tidyverse2019].

```{r, define_tibble, message=FALSE, error=FALSE, warning=FALSE}
library(tidyverse)
library(gt)
knitr::write_bib(c(.packages(), "knitr"), "some.bib")
ref_tbl <- tibble::tribble(~pkg, ~ref,
                "R",       "@R-base",
                "dplyr",   "@R-dplyr",
                "stringr", "@R-stringr",
                "knitr",   "@knitr2014",
                "gt",      "@R-gt")
```

```{r knitr_kable, results='asis'}
knitr::kable(ref_tbl, format = "markdown")
```

This does not work, because `gt` is rendered in LaTeX and pandoc-citeproc does not look into LaTeX tags.

```{r gt}
gt(ref_tbl)
```

This however works.

```{r gt_latex}
ref_tbl %>% 
  mutate(ref=paste0("\\cite{",gsub("^@", "", ref), "}")) %>% 
  gt() %>% 
  fmt(vars(ref), fns=tools::encoded_text_to_latex)
```

# Summary

Solution is therefore three-fold:
- use `citation_package: natbib` for processing references
- make a dataframe of citations in LaTeX style, double-escaped.
- pass to `gt` and use post-formatting with `tools::encoded_text_to_latex()`

# References