Skip to content
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.

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

Vignette Treatment Compliance #23

Merged
merged 2 commits into from
Jul 31, 2024
Merged

Vignette Treatment Compliance #23

merged 2 commits into from
Jul 31, 2024

Conversation

jeetendersinghc
Copy link
Collaborator

Need to update collect_title() function as it is not taking title 1 as "Summary of Treatment Compliance" from meta plan. Also I noticed that if I subset adex dataset to exclude NA records while merging with ADSL then step tbl <- outdata |> format_trt_compliance()
head(tbl$tbl) throws following error:Error in [.data.frame(within_tbl, , c(1, do.call(c, lapply(2:(1 + n_group +  : 
undefined columns selected
4.
stop("undefined columns selected")
3.
[.data.frame(within_tbl, , c(1, do.call(c, lapply(2:(1 + n_group +
ifelse("total" %in% display_col, 1, 0)), function(x) {
c(x, x + n_group + ifelse("total" %in% display_col, 1, 0) +

  1. ... at format_base_char.R#105

within_tbl[, c(1, do.call(c, lapply(2:(1 + n_group + ifelse("total" %in%
display_col, 1, 0)), function(x) {
c(x, x + n_group + ifelse("total" %in% display_col, 1, 0) +

  1. ... at format_base_char.R#105

format_trt_compliance(outdata)
. Currently adsl has all records for 254 subjects though 2 subjects has NA in ADEX and these records are presented as "Missing" in final output.

…s "Summary of Treatment Compliance" from meta plan.

Also I noticed that if I subset adex dataset to exclude NA records while merging with ADSL then step :
tbl <- outdata |> format_trt_compliance()
head(tbl$tbl)
throws following error:Error in `[.data.frame`(within_tbl, , c(1, do.call(c, lapply(2:(1 + n_group +  : 
  undefined columns selected
4.
stop("undefined columns selected")
3.
`[.data.frame`(within_tbl, , c(1, do.call(c, lapply(2:(1 + n_group +
ifelse("total" %in% display_col, 1, 0)), function(x) {
c(x, x + n_group + ifelse("total" %in% display_col, 1, 0) +
1) ... at format_base_char.R#105
2.
within_tbl[, c(1, do.call(c, lapply(2:(1 + n_group + ifelse("total" %in%
display_col, 1, 0)), function(x) {
c(x, x + n_group + ifelse("total" %in% display_col, 1, 0) +
1) ... at format_base_char.R#105
1.
format_trt_compliance(outdata)
. Currently adsl has all records for 254 subjects though 2 subjects has NA in ADEX and these records are presented as "Missing" in final output.
@wangben718 wangben718 self-requested a review July 9, 2024 17:31
@wangben718 wangben718 merged commit 573f3cc into main Jul 31, 2024
0 of 6 checks passed
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

None yet

2 participants