From 57364755c4ae58f27e0d5b57fc1d96783c5a40b9 Mon Sep 17 00:00:00 2001
From: HDash <16350928+HDash@users.noreply.github.com>
Date: Tue, 12 Nov 2024 13:42:08 +0000
Subject: [PATCH] Add package version to report header

---
 R/report_header.R | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/R/report_header.R b/R/report_header.R
index 70a2d32..5dec8bc 100644
--- 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>"
     ) 
 }