In nclJoshCowley/jcutils: Josh Cowley Utility functions for R

# https://github.com/nclJoshCowley/jcutils
library(jcutils)
data("testdata", package = "jcutils")

ggplot2::theme_set(ggplot2::theme_minimal(base_size = 22))
knitr::opts_chunk$set(
  fig.width = 12,
  fig.asp = 0.7,
  fig.align = "center",
  out.width = "100%",
  dev = "cairo_pdf"
)

# Set seed for consistent output
set.seed(params$seed)

# Below chunk flags to be set explicitly
knitr::opts_chunk$set(
  echo = FALSE,
  message = FALSE,
  cache = FALSE
)

Example Heading

Consider the following example data.

testdata %>%
  dplyr::select(
    .data$resp_lp2,
    .data$expl_rnorm, .data$expl_runif,
    .data$expl_fct_drop, .data$expl_na
  ) %>%
  dplyr::slice_head(n = 10) %>%
  jcutils::rmd_table(
    fmt = "latex",
    digits = 5
  )

r if(params$session_info) {"\\newpage # Session Info {-}"}

knitr::asis_output("Document created:")
print(lubridate::now("gmt"), "GMT")

knitr::asis_output("Parameters used:")
print(params)

knitr::asis_output("`sessionInfo()` output:")
sessionInfo()