Skip to content

Taller plots! #273

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
aclark02-arcus wants to merge 7 commits into
base: dev
Choose a base branch
from
Open

Taller plots! #273

Changes from 2 commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
0b8f775
Update mod_study_forms.R
aclark02-arcus Feb 26, 2026
14b3066
move )
aclark02-arcus Mar 2, 2026
a30d27b
Update R/mod_study_forms.R
aclark02-arcus Mar 2, 2026
35e9ae6
Increment version number to 0.4.0.9001
aclark02-arcus Mar 3, 2026
a6118ae
update config version and decrease plot height in full screen.
aclark02-arcus Mar 3, 2026
b41b330
Merge branch 'ac-taller-plots' of https://github.com/openpharma/clins…
aclark02-arcus Mar 3, 2026
4cc398f
update testthat snap for plot height
aclark02-arcus Mar 3, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 7 additions & 1 deletion R/mod_study_forms.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -290,14 +290,20 @@ 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
Comment thread
aclark02-arcus marked this conversation as resolved.
Outdated
} else {
500
Comment thread
aclark02-arcus marked this conversation as resolved.
Outdated
}
Comment thread
aclark02-arcus marked this conversation as resolved.
plotly_figure(
data = fig_data(),
fig = "timeseries_fig",
xval = "day",
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",
Expand Down
Loading