R/report_pdf.R

In CTU-Bern/CTUtemplate: Example RStudio Project Templates

#' Generate PDF report
#'
#' This is not intended to be run manually... rather via knitting a document
#'
#' @param report_template tex template to use
#' @param latex_engine tex engine to use (pdflatex, lualatex, xelatex)
#' @param ... options passed to bookdown
#' @importFrom bookdown pdf_document2
#' @export
report_pdf <- function(report_template = find_resource("report", "report.tex"),
                       latex_engine = "pdflatex",
                       ...) {

  if(report_template == "default") report_template <- find_resource("report", "report.tex")

  # copy cls and logos to new dir
  file.copy(find_resource("report", "ubreport.cls"),
            file.path(getwd(), "ubreport.cls"))
  file.copy(find_resource("report", "ub_16pt-cmyk.pdf"),
            file.path(getwd(), "ub_16pt-cmyk.pdf"))
  file.copy(find_resource("report", "dcr_cmyk.pdf"),
            file.path(getwd(), "dcr_cmyk.pdf"))


  base <- bookdown::pdf_document2(template = report_template,
                                  latex_engine = latex_engine,
                                  citation_package = "biblatex",
                                  keep_tex = TRUE, ...)

  # nolint start
  base$knitr$opts_chunk$comment <- "#>"
  base$knitr$opts_chunk$message <- FALSE
  base$knitr$opts_chunk$warning <- FALSE
  base$knitr$opts_chunk$error <- FALSE
  base$knitr$opts_chunk$echo <- FALSE
  base$knitr$opts_chunk$cache <- FALSE
  # base$knitr$opts_chunk$fig.width <- 8
  # base$knitr$opts_chunk$fig.asp <- 0.618
  base$knitr$opts_chunk$fig.ext <- "pdf"
  base$knitr$opts_chunk$fig.align <- "center"
  base$knitr$opts_chunk$fig.retina <- 3
  base$knitr$opts_chunk$fig.path <- "figures/"
  base$knitr$opts_chunk$fig.pos <- "H"
  base$knitr$opts_chunk$out.extra <- ""
  base$knitr$opts_chunk$out.width <- "100%"
  base$knitr$opts_chunk$fig.show <- "hold"
  # nolint end

  # if (tolower(apa6) %in% c("true", "yes")) {
  #   base$knitr$knit_hooks$plot <- knitr::hook_plot_tex
  # } else {
  #   base$knitr$knit_hooks$plot <- hook_tex_plot_rat
  # }

  base
}

# adapted from atlas-aai/ratlas


report_pdf2 <- function(report_template = find_resource("report", "report.tex"),
                       ...) {

  if(report_template == "default") report_template <- find_resource("report", "report.tex")

  # copy cls and logo to new dir
  file.copy(find_resource("report", "ubreport.cls"),
            file.path(getwd(), "ubreport.cls"))
  file.copy(find_resource("report", "ub_16pt-cmyk.pdf"),
            file.path(getwd(), "ub_16pt-cmyk.pdf"))
  file.copy(find_resource("report", "dcr_cmyk.pdf"),
            file.path(getwd(), "dcr_cmyk.pdf"))


  base <- bookdown::pdf_document2(template = report_template,
                                  latex_engine = "lualatex",
                                  citation_package = "biblatex",
                                  keep_tex = TRUE, ...)

  # nolint start
  # base$knitr$opts_chunk$comment <- "#>"
  base$knitr$opts_chunk$message <- FALSE
  base$knitr$opts_chunk$warning <- FALSE
  base$knitr$opts_chunk$error <- FALSE
  base$knitr$opts_chunk$echo <- FALSE
  base$knitr$opts_chunk$cache <- FALSE
  # base$knitr$opts_chunk$fig.width <- 8
  # base$knitr$opts_chunk$fig.asp <- 0.618
  base$knitr$opts_chunk$fig.ext <- "pdf"
  base$knitr$opts_chunk$fig.align <- "center"
  base$knitr$opts_chunk$fig.retina <- 3
  base$knitr$opts_chunk$fig.path <- "figures/"
  base$knitr$opts_chunk$fig.pos <- "H"
  base$knitr$opts_chunk$out.extra <- ""
  base$knitr$opts_chunk$out.width <- "100%"
  base$knitr$opts_chunk$fig.show <- "hold"
  # nolint end

  # if (tolower(apa6) %in% c("true", "yes")) {
  #   base$knitr$knit_hooks$plot <- knitr::hook_plot_tex
  # } else {
  #   base$knitr$knit_hooks$plot <- hook_tex_plot_rat
  # }

  base
}