In austl001/MOSLR: MOSL Reports and Utility Functions

knitr::opts_chunk$set(echo = FALSE, warning = FALSE, error = FALSE, message = FALSE, fig.align = "centre")

table_format <- if(knitr::is_latex_output()) "latex" else "pandoc"

`%m+%` <- lubridate::`%m+%`

table_legend_long <- data.frame(
  Red = "Above market average", 
  Yellow = "Below market average", 
  Green = "Below target market level"
   ) %>%
  dplyr::mutate(
    Red = kableExtra::cell_spec(Red, "latex", background = "#F08080"),
    Yellow = kableExtra::cell_spec(Yellow, "latex", background = "#FFE699"),
    Green = kableExtra::cell_spec(Green, "latex", background = "#C6E0B4")
    )

table_legend_vac <- data.frame(
  Red = "More than 2.5% over Market Opening average", 
  Yellow = "Within $\\pm$ 2.5\\% of the Market Opening average", 
  Green = "More than 2.5% less than Market Opening average"
  ) %>%
  dplyr::mutate(
    Red = kableExtra::cell_spec(Red, "latex", background = "#F08080"),
    Yellow = kableExtra::cell_spec(Yellow, "latex", background = "#FFE699", escape = FALSE),
    Green = kableExtra::cell_spec(Green, "latex", background = "#C6E0B4")
    )