R/word.R

In BathMASH/clavertondown: Authoring accessible maths lecture notes with Bookdown and R Markdown

markdown_clav = function(
  fig_caption = TRUE, number_sections = TRUE, md_extensions = NULL, pandoc_args = NULL, ...,
  base_format = rmarkdown::md_document
) {
  from = rmarkdown::from_rmarkdown(fig_caption, md_extensions)

  config = get_base_format(base_format, list(
    fig_caption = fig_caption, md_extensions = md_extensions, pandoc_args = pandoc_args, ...
  ))
  pre = config$pre_processor
  config$pre_processor = function(metadata, input_file, ...) {
    # Pandoc does not support numbered sections for Word, so figures/tables have
    # to be numbered globally from 1 to n
    new_theorems = load_config()[['new_theorems']]
    number_by = load_config()[['number_by']]
    style_with = load_config()[['style_with']]
    classify_as = load_config()[['classify_as']]
    process_markdown(input_file, from, pandoc_args, !number_sections, new_theorems, number_by, style_with, classify_as)
    if (is.function(pre)) pre(metadata, input_file, ...)
  }
  post = config$post_processor
  config$post_processor = function(metadata, input, output, clean, verbose) {
    if (is.function(post)) output = post(metadata, input, output, clean, verbose)
    move_output(output)
  }
  config$bookdown_output_format = config$pandoc$to
  config = set_opts_knit(config)
  config
}

word_clav = function(..., reference_docx = NULL) {

  #Check that what is going on here is what you think is going on here...
  reference_docx_ref = clavertondown_file('templates', 'clavertondownReference.docx')
  #print(reference_docx)
  #print(reference_docx_ref)
  if(is.null(reference_docx)) reference_docx = reference_docx_ref
  markdown_clav(..., base_format = rmarkdown::word_document, reference_docx = reference_docx)
}