Fix doubled appendices

pbs-assess · Jun 14, 2024 · 0346406 · 0346406
1 parent 337b33c
commit 0346406
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/add-appendix-subsection-refs.R b/R/add-appendix-subsection-refs.R
@@ -97,6 +97,13 @@ add_appendix_subsection_refs <- function(x){
 
     sec_inds <- grep(app_section_pat, app)
     if(!length(sec_inds)){
+      # Add referencing so the appendix can be referenced in the document
+      # with a link
+      counter_lines <- c(paste0("\\renewcommand{\\thechapter}{",
+                                toupper(LETTERS[app_ind]),
+                                "}"),
+                         "\\refstepcounter{chapter}")
+      app <- c(counter_lines, app)
       return(app)
     }