21.8 LaTeX

latex <- function(x) structure(x, class = "advr_latex")
print.advr_latex <- function(x) { cat("<LATEX> ", x, "\n", sep = "") }

21.8.1 to_math

to_math <- function(x) {
  expr <- enexpr(x)
  latex(              #return LaTeX code
    eval_bare(        #eval_bare to ensure use of latex environment 
      expr,           #expression (not quosure)
      latex_env(expr) #need to define latex_env
    ))
}