Add package version to report header

neurogenomics · Nov 12, 2024 · 5736475 · 5736475
1 parent b3cd646
commit 5736475
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/R/report_header.R b/R/report_header.R
@@ -4,6 +4,9 @@
 #' 
 #' Generate a header for \link[MotifPeeker]{MotifPeeker} reports generated using 
 #' the \emph{MotifPeeker.Rmd} template.
+#' 
+#' @importFrom utils packageVersion
+#' 
 #' @returns Header string to be rendering within Rmarkdown file.
 #' 
 #' @examples 
@@ -28,6 +31,13 @@ report_header <- function() {
             ),
         " height='100'",">",
         "</a>",
+        "<br>",
+        "<span style=",
+        shQuote(paste("font-size: 0.4em; color: #827594; margin-top: -1.6em;",
+        "margin-left: 0.4em; margin-bottom: 3em; display: block;")),
+        ">version ",
+        utils::packageVersion("MotifPeeker"),
+        "</span>",
         "</div>"
     ) 
 }