R/zzz.R

In IntiQuan/IQSlides: Produce Powerpoint Output from R and IQRtools Objects (Add-On for IQRtools)

globalVariables(c(".OUTPUTFOLDER_SLIDES", ".TEMPLATEFILE_SLIDES"))

.onLoad <- function(libname, pkgname) {

  # Check for available options (some of the might have been set in Rprofile)
  op <- options()

  # Default options for IQSlides
  op.IQSlides <- list(
    IQSlide.markdown = c(bold = "**", italic = "*", code = "`", subscript = "~", superscript = "^"),
    IQSlide.template = "IQNew",
    IQSlide.ratio = "16:9",
    IQSlide.outputfolder = "../Output/Slides"
  )

  # Set missing options to default values
  toset <- !(names(op.IQSlides) %in% names(op))
  if (any(toset)) options(op.IQSlides[toset])

  invisible()

}