In l-hodge/usefulR: Write Department For Education Research Reports In Rmarkdown

# Tables as LaTeX  
options(knitr.table.format = function() {
  if (knitr::is_latex_output())
    "latex" else "html"
})

# Load libraries
library(dplyr)

Introduction

r stringi::stri_rand_lipsum(1)

r stringi::stri_rand_lipsum(1) This statement needs a footnote[^about].

[^about]: This is a footnote.

Sub-Heading

r stringi::stri_rand_lipsum(1)

Sub-Sub-Heading

r stringi::stri_rand_lipsum(1)

Literature

@smith_inquiry_1776 stated...

r stringi::stri_rand_lipsum(1)

knitr::include_graphics("dfe-logo.png")

r stringi::stri_rand_lipsum(1)

Figure \ref{fig:test-fig} illustrates...

r stringi::stri_rand_lipsum(1)

This is shown in equation \ref{eq:firsteq}.

\begin{equation} P(E_{i,g,a} = 1 | E_{i,g,a-1} = 1) = \Phi(\alpha_{0,g,a} + \alpha_{1,g,a}r_{i,g,a-1}) \label{eq:firsteq} \end{equation}

r stringi::stri_rand_lipsum(1)

dfeReports::dfe_tbl(head(mtcars), label = "test-table", caption = "mtcars data") %>%
  kableExtra::footnote(general = c("1974 Motor Trend US magazine",
                                   "R Built-in Data Set"),
                       general_title = "Source: ") %>%
  kableExtra::kable_styling(latex_options = "scale_down")