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")), diff --git a/R/mod_study_forms.R b/R/mod_study_forms.R index b3c8d09f..2eefc965 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 { + 425 + } 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", 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 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": {