Merge pull request #144 from metrumresearchgroup/update-renderQC-temp…

…late Update renderQC summary
metrumresearchgroup · Nov 13, 2024 · 4c932b7 · 4c932b7
2 parents 9379a11 + 38b0a51
commit 4c932b7
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/R/renderQCSummary.R b/R/renderQCSummary.R
@@ -35,10 +35,11 @@ renderQCSummary <- function(.output_dir = NULL) {
   output_path <- file.path(.output_dir, output_file)
 
   params_in <- list(
-    project = paste0(basename(logRoot()), " as of revision ", svnProjInfo()[["rev"]]),
+    project = basename(logRoot()),
     repoHistory = repoHistory(),
     qcLog = logRead(),
-    logPending = logPending()
+    logPending = logPending(),
+    projInfo = svnProjInfo()
   )
 
   rmarkdown::render(

diff --git a/inst/templates/QCSummary.Rmd b/inst/templates/QCSummary.Rmd
@@ -7,6 +7,7 @@ params:
   repoHistory: NULL
   qcLog: NULL
   logPending: NULL
+  projInfo: NULL
 output:
   pdf_document:
   toc: true
@@ -21,6 +22,13 @@ header-includes:
 knitr::opts_chunk$set(echo = FALSE)
 ```
 
+```{r, results='asis'}
+writeLines("\\begin{center}")
+writeLines(paste0("As of revision ", params$projInfo$rev))
+writeLines("\\end{center}")
+```
+
+
 # QC Pending
 
 ```{r, results='asis'}