From 6399bb00ee1929fa5072e48c138f6405615d9fc7 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 27 Jan 2025 14:09:08 +0100
Subject: [PATCH] latest app version stored and referenced in function call

---
 R/app_version.R                       |  1 +
 inst/apps/data_analysis_modules/app.R | 11 +++++++++--
 inst/apps/data_analysis_modules/ui.R  |  2 +-
 3 files changed, 11 insertions(+), 3 deletions(-)
 create mode 100644 R/app_version.R

diff --git a/R/app_version.R b/R/app_version.R
new file mode 100644
index 0000000..267619b
--- /dev/null
+++ b/R/app_version.R
@@ -0,0 +1 @@
+app_version <- function()'250127_1200'
diff --git a/inst/apps/data_analysis_modules/app.R b/inst/apps/data_analysis_modules/app.R
index a48ac8e..8147fcf 100644
--- a/inst/apps/data_analysis_modules/app.R
+++ b/inst/apps/data_analysis_modules/app.R
@@ -6,6 +6,13 @@
 
 
 
+########
+#### Current file: R//app_version.R 
+########
+
+app_version <- function()'250127_1200'
+
+
 ########
 #### Current file: R//baseline_table.R 
 ########
@@ -3736,7 +3743,7 @@ ui_elements <- list(
               inputId = "add_regression_p",
               label = "Add p-value",
               inline = TRUE,
-              selected = "no",
+              selected = "yes",
               choices = list(
                     "Yes" = "yes",
                     "No" = "no"
@@ -3903,7 +3910,7 @@ ui <- bslib::page_fixed(
       ),
       shiny::p(
         style = "margin: 1; color: #888;",
-        "AG Damsbo | v", format(Sys.time(),format = '%y%m%d_%H%M')," | AGPLv3 license | ", shiny::tags$a("Source on Github", href = "https://github.com/agdamsbo/freesearcheR/", target = "_blank", rel = "noopener noreferrer")
+        "AG Damsbo | v", app_version()," | AGPLv3 license | ", shiny::tags$a("Source on Github", href = "https://github.com/agdamsbo/freesearcheR/", target = "_blank", rel = "noopener noreferrer")
       ),
     )
   )
diff --git a/inst/apps/data_analysis_modules/ui.R b/inst/apps/data_analysis_modules/ui.R
index df3add4..58e8aca 100644
--- a/inst/apps/data_analysis_modules/ui.R
+++ b/inst/apps/data_analysis_modules/ui.R
@@ -518,7 +518,7 @@ ui <- bslib::page_fixed(
       ),
       shiny::p(
         style = "margin: 1; color: #888;",
-        "AG Damsbo | v", format(Sys.time(),format = '%y%m%d_%H%M')," | AGPLv3 license | ", shiny::tags$a("Source on Github", href = "https://github.com/agdamsbo/freesearcheR/", target = "_blank", rel = "noopener noreferrer")
+        "AG Damsbo | v", app_version()," | AGPLv3 license | ", shiny::tags$a("Source on Github", href = "https://github.com/agdamsbo/freesearcheR/", target = "_blank", rel = "noopener noreferrer")
       ),
     )
   )