R/outputs.R

In louisahsmith/louisahstuff: Functions, themes, and add-ins to improve my life

homework <- function(..., metadata = NULL) {
  #if(type == "pdf"){
    pdf_document_format(...,
                        format = "homework",
                        template = "homework.tex",
                        metadata = metadata)
  # }
  # if(type == "word"){
  #   word_document_format(...,
  #                       format = "homework",
  #                       template = "homework.docx",
  #                       metadata = "homework_word.yaml")
  # }
  # if(!type %in% c("pdf", "word")) stop("Other formats not yet supported")
}

notes <- function(..., metadata = NULL) {
  #if(type == "pdf"){
  pdf_document_format(...,
                      format = "notes",
                      template = "notes.tex",
                      metadata = metadata)
  # }
  # if(type == "word"){
  #   word_document_format(...,
  #                       format = "homework",
  #                       template = "homework.docx",
  #                       metadata = "homework_word.yaml")
  # }
  # if(!type %in% c("pdf", "word")) stop("Other formats not yet supported")
}

slides <- function(..., metadata = NULL) {
  beamer_presentation_format(...,
                        format = "slides",
                        template = "slides.tex",
                        metadata = metadata,
                        latex_engine = "xelatex",
                        citation_package = "biblatex")

  # if(!type %in% c("pdf")) stop("Other formats not yet supported")
}


epidemiology <- function(..., metadata = NULL, type = "pdf") {
  if(type == "pdf"){
    return(pdf_document_format(...,
                        format = "epidemiology",
                        template = "epidemiology.tex",
                        metadata = metadata,
                        bibstyle = "epidemiology",
                      bibliography = "library"))
  }
  if(type == "word"){
    return(word_document_format(...,
                        format = "epidemiology",
                        template = "epidemiology.docx",
                        metadata = metadata,
                        bibstyle = "epidemiology",
                      bibliography = "library"))
  }
  # if(type == "redoc"){
  #   return(redoc_document_format(...,
  #                               format = "epidemiology",
  #                               template = "epidemiology.docx",
  #                               metadata = metadata,
  #                               bibstyle = "epidemiology",
  #                               bibliography = "library"))
  # }
  if(type == "reports") {
    return(word_document_format(...,
                                format = "epidemiology",
                                template = "epidemiology.docx",
                                metadata = metadata,
                                bibstyle = "reports",
                                bibliography = "library"))
  }
  # if(!type %in% c("pdf", "word", "reports")) stop("Other formats not yet supported")
}