From 04eadf7e3c1468743cbac706d16889850282573a Mon Sep 17 00:00:00 2001
From: chauhaje <jeetender.chauhan@merck.com>
Date: Wed, 18 Mar 2026 20:49:31 -0400
Subject: [PATCH 1/3] added option to format mean value and also adding
 vignette file to test the function. testing-format-statistics.Rmd file can be
 deleted after test

---
 vignettes/testing-format-statistics.Rmd | 38 +++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 vignettes/testing-format-statistics.Rmd

diff --git a/vignettes/testing-format-statistics.Rmd b/vignettes/testing-format-statistics.Rmd
new file mode 100644
index 0000000..237f04a
--- /dev/null
+++ b/vignettes/testing-format-statistics.Rmd
@@ -0,0 +1,38 @@
+---
+title: "Untitled"
+author: "Jeetender Singh Chauhan"
+date: "`r Sys.Date()`"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+
+
+```{r , echo=FALSE}
+library(metalite)
+library(boxly)
+
+# Step 1: Source your modified prepare_boxly.R file
+# (Update the path to where your modified file is saved)
+source("~/boxly_format_mean_value/R/prepare_boxly.R")
+
+# Step 2: Create metadata
+meta <- meta_boxly(
+  boxly_adsl,
+  boxly_adlb,
+  population_term = "apat",
+  observation_term = "wk12"
+)
+
+# Step 3: Prepare data with 2 decimal places for mean
+outdata <- prepare_boxly(meta, mean_decimal = 5)
+
+# Step 4: Generate the interactive box plot
+boxly(outdata)
+
+```
+
+Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot.

From f768992a66949311b17fcb640d4a79d21ba0c6eb Mon Sep 17 00:00:00 2001
From: jeetendersinghc <jeetendersinghc@users.noreply.github.com>
Date: Thu, 19 Mar 2026 00:58:59 +0000
Subject: [PATCH 2/3] Style code (GHA)

---
 vignettes/testing-format-statistics.Rmd | 1 -
 1 file changed, 1 deletion(-)

diff --git a/vignettes/testing-format-statistics.Rmd b/vignettes/testing-format-statistics.Rmd
index 237f04a..5e7762f 100644
--- a/vignettes/testing-format-statistics.Rmd
+++ b/vignettes/testing-format-statistics.Rmd
@@ -32,7 +32,6 @@ outdata <- prepare_boxly(meta, mean_decimal = 5)
 
 # Step 4: Generate the interactive box plot
 boxly(outdata)
-
 ```
 
 Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot.

From a47b4dccf1e76b587afbb9f0e4f29deda0e7aa06 Mon Sep 17 00:00:00 2001
From: chauhaje <jeetender.chauhan@merck.com>
Date: Wed, 18 Mar 2026 21:01:29 -0400
Subject: [PATCH 3/3] Updated function to format mean value

---
 R/prepare_boxly.R | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/R/prepare_boxly.R b/R/prepare_boxly.R
index 1b7134d..b9858a8 100644
--- a/R/prepare_boxly.R
+++ b/R/prepare_boxly.R
@@ -51,7 +51,8 @@ prepare_boxly <- function(meta,
                           observation = NULL,
                           analysis = NULL,
                           filter_var = "PARAM",
-                          hover_var_outlier = c("USUBJID", metalite::collect_adam_mapping(meta, analysis)$y)) {
+                          hover_var_outlier = c("USUBJID", metalite::collect_adam_mapping(meta, analysis)$y),
+                          mean_decimal = NULL) {
   if (is.null(population)) {
     if (length(meta$population) == 1) {
       population <- meta$population[[1]]$name
@@ -179,7 +180,11 @@ prepare_boxly <- function(meta,
         ans$min <- vals[1]
         ans$q1 <- vals[2]
         ans$median <- vals[3]
-        ans$mean <- mean_val
+        if (!is.null(mean_decimal)) {
+          ans$mean <- round(mean_val, mean_decimal)
+        } else {
+          ans$mean <- mean_val
+        }
         ans$q3 <- vals[4]
         ans$max <- vals[5]