[Bug]: tm_g_ae_sub module AE table is not clearly visible

[kartikeyakirar]

What happened?

In Chrome, the visibility of the AE table is compromised, as the labels overcrowd and extend beyond the table's boundaries. This issue occurs due to the table adjusting to fit the available width. However, at a 70-80% zoom level, the table's appearance improves.

we could consider to implement a bottom scrollbar or set a minimum width.

At zoom 100% labes are going outside of the plot.

At zoom 70% table looks ok

Sample App

# Example using stream (ADaM) dataset
data <- cdisc_data() |>
  within({
    ADSL <- rADSL
    ADAE <- rADAE
  })

datanames(data) <- c("ADSL", "ADAE")
join_keys(data) <- default_cdisc_join_keys[datanames(data)]

app <- init(
  data = data,
  modules = modules(
    tm_g_ae_sub(
      label = "AE by Subgroup",
      dataname = "ADAE",
      arm_var = teal.transform::choices_selected(
        selected = "ACTARMCD",
        choices = c("ACTARM", "ACTARMCD")
      ),
      group_var = teal.transform::choices_selected(
        selected = c("SEX", "REGION1", "RACE"),
        choices = c("SEX", "REGION1", "RACE")
      ),
      plot_height = c(600, 200, 2000)
    )
  )
)
shinyApp(app$ui, app$server)