R/chem_lab.R

In ismayc/chemistr: Facilitates use of R functions and R Markdown files for Chemistry lab reports

#' Creates an R Markdown Word document for the Reed College Chem 101/102 labs
#'
#' This is a function called in output in the YAML of the driver Rmd file to
#' specify using a tweaked version of the default LaTeX pandoc template.
#'
#' @export
#' @param fig_height A positive numeric giving the default height of images
#' @param fig_width A positive numeric giving the default width of images
#' @return A modified \code{word_document} based on slightly modified knitr
#' LaTeX default file
#' @examples
#' \dontrun{
#'  output:
#'    chemistr::chem_lab_word
#' }
chem_lab_word <- function(fig_height = 3, fig_width = 6){
  #template <- find_resource("template.tex")

  #   base <- rmarkdown::pdf_document(template = template,
  #                                    fig_caption = TRUE,
  #                                    fig_height = fig_height,
  #                                    fig_width = fig_width,
  #                                    keep_tex = TRUE)
  bookdown::word_document2(fig_caption = TRUE,
    fig_height = fig_height,
    fig_width = fig_width)
}