From 82106eedcdf1f40cce9507275652d4ccbf8a6f4f Mon Sep 17 00:00:00 2001 From: Rudhik1904 Date: Thu, 8 Jan 2026 21:05:42 -0600 Subject: [PATCH 1/4] adding some of the tooltips --- R/module-statmodel-server.R | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/R/module-statmodel-server.R b/R/module-statmodel-server.R index 40f66cd..4cf0ae8 100644 --- a/R/module-statmodel-server.R +++ b/R/module-statmodel-server.R @@ -677,6 +677,14 @@ statmodelServer = function(id, parent_session, loadpage_input, qc_input, ))), h2("Comparison matrix"), p(tags$i("This table is interactive. Click values to edit.")), + if (!is.null(input[[NAMESPACE_STATMODEL$comparison_mode]]) && + input[[NAMESPACE_STATMODEL$comparison_mode]] %in% c( + CONSTANTS_STATMODEL$comparison_mode_all_pairwise, + CONSTANTS_STATMODEL$comparison_mode_all_vs_one, + CONSTANTS_STATMODEL$comparison_mode_custom_pairwise + )) { + p(tags$i(" -1 means control and 1 means treatment")) + }, br(), textOutput(ns("message")), br(), From 8d28055c7cdf62b8aa497f51b9247ba8de54d8ed Mon Sep 17 00:00:00 2001 From: tonywu1999 Date: Mon, 9 Feb 2026 10:49:58 -0500 Subject: [PATCH 2/4] modify text help to be more user friendly and adjusted interactive text to only apply to response curves --- R/module-statmodel-server.R | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/R/module-statmodel-server.R b/R/module-statmodel-server.R index 4cf0ae8..374f9e1 100644 --- a/R/module-statmodel-server.R +++ b/R/module-statmodel-server.R @@ -676,14 +676,18 @@ statmodelServer = function(id, parent_session, loadpage_input, qc_input, "table.dataTable td input { color: black !important; }" ))), h2("Comparison matrix"), - p(tags$i("This table is interactive. Click values to edit.")), + if (!is.null(input[[NAMESPACE_STATMODEL$comparison_mode]]) && + input[[NAMESPACE_STATMODEL$comparison_mode]] == + CONSTANTS_STATMODEL$comparison_mode_response_curve) { + p(tags$i("This table is interactive. Click values to edit.")) + }, if (!is.null(input[[NAMESPACE_STATMODEL$comparison_mode]]) && input[[NAMESPACE_STATMODEL$comparison_mode]] %in% c( CONSTANTS_STATMODEL$comparison_mode_all_pairwise, CONSTANTS_STATMODEL$comparison_mode_all_vs_one, CONSTANTS_STATMODEL$comparison_mode_custom_pairwise )) { - p(tags$i(" -1 means control and 1 means treatment")) + p(tags$i(" A value of −1 represents the control group, and a value of 1 represents the treatment group")) }, br(), textOutput(ns("message")), From 13e8fc980ff8b632ed279ae61a1381bee00bbd16 Mon Sep 17 00:00:00 2001 From: tonywu1999 Date: Mon, 9 Feb 2026 11:07:53 -0500 Subject: [PATCH 3/4] fix interactive message --- R/module-statmodel-server.R | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/R/module-statmodel-server.R b/R/module-statmodel-server.R index 374f9e1..993e4cf 100644 --- a/R/module-statmodel-server.R +++ b/R/module-statmodel-server.R @@ -676,11 +676,7 @@ statmodelServer = function(id, parent_session, loadpage_input, qc_input, "table.dataTable td input { color: black !important; }" ))), h2("Comparison matrix"), - if (!is.null(input[[NAMESPACE_STATMODEL$comparison_mode]]) && - input[[NAMESPACE_STATMODEL$comparison_mode]] == - CONSTANTS_STATMODEL$comparison_mode_response_curve) { - p(tags$i("This table is interactive. Click values to edit.")) - }, + p(tags$i("This table is interactive. Click values to edit.")), if (!is.null(input[[NAMESPACE_STATMODEL$comparison_mode]]) && input[[NAMESPACE_STATMODEL$comparison_mode]] %in% c( CONSTANTS_STATMODEL$comparison_mode_all_pairwise, From e872b64120f9f0420fbbaccd46e8a2675a1a1e0d Mon Sep 17 00:00:00 2001 From: tonywu1999 Date: Mon, 9 Feb 2026 11:23:47 -0500 Subject: [PATCH 4/4] remove whitespace --- R/module-statmodel-server.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/module-statmodel-server.R b/R/module-statmodel-server.R index 993e4cf..79b2b8c 100644 --- a/R/module-statmodel-server.R +++ b/R/module-statmodel-server.R @@ -683,7 +683,7 @@ statmodelServer = function(id, parent_session, loadpage_input, qc_input, CONSTANTS_STATMODEL$comparison_mode_all_vs_one, CONSTANTS_STATMODEL$comparison_mode_custom_pairwise )) { - p(tags$i(" A value of −1 represents the control group, and a value of 1 represents the treatment group")) + p(tags$i("A value of −1 represents the control group, and a value of 1 represents the treatment group")) }, br(), textOutput(ns("message")),