Adding new module using summarize_glm_count (#1386)

# Pull Request

Fixes #1379

This PR adds a new module `tm_t_glm_counts` that uses
`tern::summarize_glm_count` to create a table output per request.


<details><summary>Sample app on how to use it </summary>
<p>

```r
devtools::load_all("../teal.modules.clinical")
data <- within(teal_data(), {
  library("tern")
  ADSL <- tern_ex_adsl
  ADTTE <- tern_ex_adtte
})

join_keys(data) <- default_cdisc_join_keys[names(data)]

arm_ref_comp <- list(
  ACTARMCD = list(
    ref = "ARM B",
    comp = c("ARM A", "ARM C")
  ),
  ARM = list(
    ref = "B: Placebo",
    comp = c("A: Drug X", "C: Combination")
  )
)

ADSL <- data[["ADSL"]]
ADTTE <- data[["ADTTE"]]
# Initialize the teal app
app <- init(
  data = data,
  modules = modules(
    tm_t_glm_counts(
      dataname = "ADTTE",
      arm_var = choices_selected(
        variable_choices(ADTTE, c("ARM", "ARMCD", "ACTARMCD")),
        "ARMCD"
      ),
      arm_ref_comp = arm_ref_comp,
      aval_var = choices_selected(
        variable_choices(ADTTE, "AVAL"),
        "AVAL"
      ),
      strata_var = choices_selected(
        variable_choices(ADSL, "SEX"),
        NULL
      ),
      offset_var = choices_selected(
        variable_choices(ADSL, "AGE"),
        NULL
      ),
      cov_var = choices_selected(
        variable_choices(ADTTE, "SITEID"),
        NULL
      )
    )
  )
)

if (interactive()) {
  shinyApp(ui = app$ui, server = app$server)
}

``` 


</p>
</details> 

Image of the output


![image](https://github.com/user-attachments/assets/2906bde6-5c64-4022-86b1-a994619326fd)

---------

Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>

Author: llrs-roche

NAMESPACE

@@ -51,6 +51,7 @@ export(tm_t_events_by_grade)
 export(tm_t_events_patyear)
 export(tm_t_events_summary)
 export(tm_t_exposure)
+export(tm_t_glm_counts)
 export(tm_t_logistic)
 export(tm_t_mult_events)
 export(tm_t_pp_basic_info)