expand package info

Author: NightlordTW

inst/app/modules/info/mod_info_ui.R

@@ -10,6 +10,7 @@ mod_info_ui <- function(id) {
       h4("About this app"),
       p("This application allows simulation and evaluation of Bayesian trial designs using conjugate Beta–Binomial models."),
       p("It supports both randomized trials and single-arm studies with optional historical borrowing."),
+      p(HTML('For documentation and source code, visit the <a href="https://github.com/smartdata-analysis-and-statistics/bcts" target="_blank">GitHub repository</a>.')),
       br(),
       h5("Version info"),
       verbatimTextOutput(ns("version_text"))
@@ -24,9 +25,12 @@ mod_info_server <- function(id) {
   moduleServer(id, function(input, output, session) {
     ns <- session$ns
 
+    ver <- as.character(utils::packageVersion("bcts"))
+    date <- utils::packageDescription("bcts")$Date %||% Sys.Date()
+
     output$version_text <- renderText({
       paste(
-        "bcts version:", as.character(utils::packageVersion("bcts")),
+        "bcts version:", ver, "\nBuild date:", date,
         "\nR version:", R.version.string,
         "\nPlatform:", R.version$platform
       )