From 0b8f77568ab2263f171436b3f6e57293082daffb Mon Sep 17 00:00:00 2001 From: Aaron Clark <162465159+aclark02-arcus@users.noreply.github.com> Date: Wed, 25 Feb 2026 21:40:55 -0500 Subject: [PATCH 1/6] Update mod_study_forms.R Increased default plot height and allowed for 'full screen' plot viewing when only 1 is selected. --- R/mod_study_forms.R | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/R/mod_study_forms.R b/R/mod_study_forms.R index b3c8d09f..473933c9 100644 --- a/R/mod_study_forms.R +++ b/R/mod_study_forms.R @@ -290,6 +290,12 @@ mod_study_forms_server <- function( fig_data()[[yval]], "No non-missing data available. Check table view or non-transformed data." )) + plot_cnt <- length(unique(fig_data()$item_name)) + plot_height <- if (plot_cnt > 1) { + ceiling(0.5 * plot_cnt * 150 + 200) + } else { + 500 + } plotly_figure( data = fig_data(), fig = "timeseries_fig", @@ -297,7 +303,7 @@ mod_study_forms_server <- function( id = "subject_id", id_to_highlight = active_subject(), point_size = "reviewed", - height = ceiling(0.5*length(unique(fig_data()$item_name))*125+175), + height = plot_height, show_all_participants = isTRUE(input$show_all_participants), show_all_hover_labels = input$show_all_hover_labels, label = if (yval == "value_standardized") "label_standardized" else "text_label", From 14b30664a2ed4306099e1b1a49006247876b5147 Mon Sep 17 00:00:00 2001 From: aclark02-arcus Date: Mon, 2 Mar 2026 07:44:22 -0800 Subject: [PATCH 2/6] move ) --- R/mod_study_forms.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/mod_study_forms.R b/R/mod_study_forms.R index 473933c9..4363302d 100644 --- a/R/mod_study_forms.R +++ b/R/mod_study_forms.R @@ -292,7 +292,7 @@ mod_study_forms_server <- function( )) plot_cnt <- length(unique(fig_data()$item_name)) plot_height <- if (plot_cnt > 1) { - ceiling(0.5 * plot_cnt * 150 + 200) + ceiling(0.5 * plot_cnt * 150) + 200 } else { 500 } From a30d27b4fa22c733dbd8b88e2ba227e6d8ceb3a8 Mon Sep 17 00:00:00 2001 From: Aaron Clark <162465159+aclark02-arcus@users.noreply.github.com> Date: Mon, 2 Mar 2026 10:57:55 -0500 Subject: [PATCH 3/6] Update R/mod_study_forms.R Co-authored-by: Leon Samson <42182207+LDSamson@users.noreply.github.com> --- R/mod_study_forms.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/mod_study_forms.R b/R/mod_study_forms.R index 4363302d..0ae0b161 100644 --- a/R/mod_study_forms.R +++ b/R/mod_study_forms.R @@ -292,7 +292,7 @@ mod_study_forms_server <- function( )) plot_cnt <- length(unique(fig_data()$item_name)) plot_height <- if (plot_cnt > 1) { - ceiling(0.5 * plot_cnt * 150) + 200 + ceiling(0.5 * plot_cnt)*150 + 200 } else { 500 } From 35e9ae64308976255e8bd8dda2ce6d744e81ef5f Mon Sep 17 00:00:00 2001 From: aclark02-arcus Date: Tue, 3 Mar 2026 06:30:51 -0800 Subject: [PATCH 4/6] Increment version number to 0.4.0.9001 --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 94855baa..8dcd3d93 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: clinsight Title: ClinSight -Version: 0.4.0.9000 +Version: 0.4.0.9001 Authors@R: c( person("Leonard Daniël", "Samson", , "lsamson@gcp-service.com", role = c("cre", "aut"), comment = c(ORCID = "0000-0002-6252-7639")), From a6118aee4691da3a3756202aa9645f88a445d33e Mon Sep 17 00:00:00 2001 From: aclark02-arcus Date: Tue, 3 Mar 2026 07:15:23 -0800 Subject: [PATCH 5/6] update config version and decrease plot height in full screen. --- R/mod_study_forms.R | 2 +- inst/golem-config.yml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/mod_study_forms.R b/R/mod_study_forms.R index 4363302d..956b2ea9 100644 --- a/R/mod_study_forms.R +++ b/R/mod_study_forms.R @@ -294,7 +294,7 @@ mod_study_forms_server <- function( plot_height <- if (plot_cnt > 1) { ceiling(0.5 * plot_cnt * 150) + 200 } else { - 500 + 425 } plotly_figure( data = fig_data(), diff --git a/inst/golem-config.yml b/inst/golem-config.yml index 373abec1..5e6b3923 100644 --- a/inst/golem-config.yml +++ b/inst/golem-config.yml @@ -1,6 +1,6 @@ default: golem_name: clinsight - golem_version: 0.4.0 + golem_version: 0.4.0.9001 app_prod: no user_identification: test_user study_data: !expr clinsight::clinsightful_data From 4cc398f89b65d5f91207cd789d5ac3c2f6b8009c Mon Sep 17 00:00:00 2001 From: aclark02-arcus Date: Tue, 3 Mar 2026 07:19:20 -0800 Subject: [PATCH 6/6] update testthat snap for plot height --- tests/testthat/_snaps/mod_study_forms/study_forms_figs-001.json | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/_snaps/mod_study_forms/study_forms_figs-001.json b/tests/testthat/_snaps/mod_study_forms/study_forms_figs-001.json index 2f18b7b3..c388c6ee 100644 --- a/tests/testthat/_snaps/mod_study_forms/study_forms_figs-001.json +++ b/tests/testthat/_snaps/mod_study_forms/study_forms_figs-001.json @@ -452,7 +452,7 @@ } }, "hovermode": "closest", - "height": 238, + "height": 425, "barmode": "relative" }, "config": {