andrewheiss / amelia-broom-huxtable Goto Github PK

library(huxtable)
tt <- tribble_hux(
       ~ Name,             ~ Salary,
         "$\\alpha",       50000,
         "Jane Doe$^2$",         50000,
         "$\\sum_{i=1} x_i", 50000,
         add_colnames = TRUE
)
cc <- function(...) cat(...,file="tmp.tex")
cc("\\documentclass{article}\n")
texpkgs <- c("array","caption","graphicx","siunitx","multirow",
             "hhline","calc","tabularx")
for (tt in texpkgs) {
    cc(sprintf("\\usepackage{%s}\n",tt),append=TRUE)
}
cc("\\usepackage[table]{xcolor}\n\\begin{document}",append=TRUE)
cc(to_latex(tt),append=TRUE)
cc("\\end{document}",append=TRUE)
system("pdflatex tmp.tex")