Simple Latex knitr engine

latex_engine.Rmd

---
title: "Latex engine test"
author: "William May"
date: "December 1, 2019"
output: pdf_document
---

```{r setup, include=FALSE}
library(knitr)
opts_chunk$set(echo = TRUE)

# a simple Latex engine
eng_latex <- function(options) {
  # the original latex code is also the output
  out <- c("\\bigskip", options$code)
  # don't process the latex output
  options$results <- "asis"
  engine_output(options, options$code, out)
}
knitr::knit_engines$set(latex = eng_latex)
```

We should see the output of this latex code:

```{latex test}
\begin{enumerate}
\item Cat
\item Dog
\end{enumerate}
```