Add 18pt word template

paulnorthrop · Oct 22, 2023 · dabc067 · dabc067
1 parent e2de679
commit dabc067
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/R/rmd2word.R b/R/rmd2word.R
@@ -92,6 +92,7 @@
 #'     \item{\code{doc = "accessr"}: }{similar to \code{"officedown"} but with
 #'       narrower margins and black text for titles and darker hyperlinks, to
 #'       avoid contrast issues,}
+#'     \item{\code{doc = "18"}: }{like \code{"accessr"} but with 18pt text,}
 #'     \item{\code{doc = "exam"}:}{creates a Word file with a header
 #'       "Examination paper for STAT0002" on the left and "Page x of n" on the
 #'       right.}
@@ -216,6 +217,10 @@ rmd2word <- function(x, doc = "accessr",
   accessr_doc_path <- system.file(package = "accessr", "examples",
                                   "template.docx")
   doc <- ifelse(doc == "accessr", accessr_doc_path, doc)
+  # Do the same for any instances of "18" in doc
+  accessr_18_path <- system.file(package = "accessr", "examples",
+                                 "template18.docx")
+  doc <- ifelse(doc == "18", accessr_18_path, doc)
   # Do the same for any instances of "exam" in doc
   accessr_exam_path <- system.file(package = "accessr", "examples",
                                    "exam.docx")

diff --git a/inst/examples/template18.docx b/inst/examples/template18.docx
diff --git a/man/rmd2word.Rd b/man/rmd2word.Rd