`react_base_char()`: The total count for subgroup in baseline table is incorrect when the subset condition contains "treatment group is not missing"

[fukuhiro2023]

In the interactive baseline characteristics table generated by react_base_char(), the total count for subgroup in baseline table is incorrect when the subset condition contains "treatment group is not missing". This may be due to metalite::meta_add_total() used in the collect_baseline().

[fukuhiro2023]

Quick example:

devtools::load_all()
adsl <- r2rtf::r2rtf_adsl
adsl$TRTA <- adsl$TRT01A
adsl$TRTA <- factor(adsl$TRTA,
                    levels = c("Placebo", "Xanomeline Low Dose", "Xanomeline High Dose"),
                    labels = c("Placebo", "Low Dose", "High Dose")
)

na_indices <- sample(1:nrow(adsl), size = floor(nrow(adsl) * 0.3))
adsl$TRTA[na_indices] <- "" # same if NA is used

plan <- metalite::plan(
  analysis = "base_char_subgroup", population = "apat",
  observation = "apat", parameter = "age"
)

meta <- metalite::meta_adam(
  population = adsl,
  observation = adsl
) |>
  metalite::define_plan(plan) |>
  metalite::define_population(
    name = "apat",
    group = "TRTA",
    subset = quote(SAFFL == "Y" & TRTA != "") # !is.na(TRTA) depending on data
  ) |>
  metalite::define_parameter(
    name = "age",
    var = "AGE",
    label = "Age (years)",
    vargroup = "AGEGR1"
  ) |>
  metalite::define_analysis(
    name = "base_char_subgroup",
    title = "Participant by Age Category and Sex",
    label = "baseline characteristic sub group table"
  ) |>
  metalite::meta_build()

react_base_char(
  metadata_sl = meta,
  metadata_ae = metalite.ae::meta_ae_example(),
  population = "apat",
  observation = "wk12",
  display_total = TRUE,
  sl_parameter = "age",
  ae_subgroup = c("age"),
  ae_specific = "rel",
  width = 1200
)

Output of the example: