use Word templates for 2024 for ResDoc

R/resdoc-word.R

@@ -12,7 +12,7 @@
 #' template
 #' @export
 resdoc_word <- function(...) {
-  file <- if (fr()) "RES2021-fra-content.docx" else "RES2021-eng-content.docx"
+  file <- if (fr()) "RES2024-fra-content.docx" else "RES2024-eng-content.docx"
   base <- word_document2(...,
                          reference_docx = system.file("csas-docx",
                                                       file,

R/sr-word.R

@@ -1,7 +1,7 @@
 #' @rdname csas_docx
 #' @export
 sr_word <- function(...) {
-  file <- if (fr()) "SRR-RS2021-fra.docx" else "SRR-RS2021-eng.docx"
+  file <- if (fr()) "SRR-RS2024-fra.docx" else "SRR-RS2024-eng.docx"
   base <- word_document2(...,
                          reference_docx = system.file("csas-docx",
                                                       file,

R/utils.R

@@ -299,7 +299,7 @@ fr <- function(){
 # nocov start
 #' Add a Res Doc titlepage to a docx file
 #'
-#' Add a Res Doc titlepage. Must hand edit `templates/RES2021-eng-titlepage.docx`
+#' Add a Res Doc titlepage. Must hand edit `templates/RES2024-eng-titlepage.docx`
 #' to have your desired title and authors etc.
 #'
 #' @param titlepage Filename
@@ -308,7 +308,7 @@ fr <- function(){
 #' @return A merged .docx
 #' @importFrom officer read_docx body_add_docx cursor_reach body_add_toc
 #' @export
-add_resdoc_docx_titlepage <- function(titlepage = "templates/RES2021-eng-titlepage.docx",
+add_resdoc_docx_titlepage <- function(titlepage = "templates/RES2024-eng-titlepage.docx",
                                       resdoc = "_book/resdoc-english.docx") {
   title_doc <- read_docx(titlepage)
   x <- body_add_docx(title_doc, resdoc, pos = "before")
@@ -318,15 +318,15 @@ add_resdoc_docx_titlepage <- function(titlepage = "templates/RES2021-eng-titlepa
 #' Add front matter to Res Doc docx file
 #'
 #' Add title page and table of contents to a Res Doc. Must hand edit
-#' `templates/RES2021-eng-frontmatter.docx`to have your desired title and authors etc.
+#' `templates/RES2024-eng-frontmatter.docx`to have your desired title and authors etc.
 #'
 #' @param frontmatter  Path to title page file included with resdoc template
 #' @param resdoc       Path to content generated using resdoc_word
 #'
 #' @return A merged .docx
 #' @export
-add_resdoc_docx_frontmatter <- function(frontmatter = "templates/RES2021-eng-frontmatter.docx",
-                                        resdoc = "_book/resdoc.docx") {
+add_resdoc_docx_frontmatter <- function(frontmatter = "templates/RES2024-eng-frontmatter.docx",
+                                        resdoc = "_book/resdoc-english.docx") {
   frontmatter_doc <- read_docx(frontmatter)
   x <- body_add_docx(frontmatter_doc, resdoc, pos = "before")
   x <- cursor_reach(x, keyword = "TABLE OF CONTENTS")