R/gt_latex.R

In mcanouil/mctools: Mickaël Canouil's tools

# library(gt)
gt_latex <- function(x, caption, label) {
  cat(gsub(
    ".*\\\\begin\\{longtable\\}\\{([^}]*)\\}\\n",
    paste0("\\\\begin{longtable}{\\1}\n\\\\caption{\\\\label{tab:", label, "}", caption, "}\\\\\\\\\n"),
    gt::as_latex(x)
  ))
}