Need to update collect_title() function as it is not taking title 1 a…

…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.