Tm_T_summary Module : Missing Search Bar in Drop-down List t

[Carlucc2]

Feature description

It seems there's been a change in the functionality of the search bar within the drop-down list in the tm_T_summary module. This feature was helpful for users to quickly find variables of interest by typing in their initials. However, it seems that this feature is no longer available, making it difficult for users to locate specific variables as they now have to scroll through a long list.
Now

Previous version

The search bar feature is still present in other modules like the Km plot.

Code of Conduct

• I agree to follow this project's Code of Conduct.

Contribution Guidelines

• I agree to follow this project's Contribution Guidelines.

Security Policy

• I agree to follow this project's Security Policy.

[Melkiades]

Thanks for your question!! I think this is an intentional change related to the filter panel update. I am not sure but it seems that the select all deselect all took precedence to the filter. I am sure @gogonzo knows best though! :)

[gogonzo]

Thanks @Carlucc2 @Melkiades for letting us know about this.

@Carlucc2 it looks like this input has a livesearch when number of choices are more than 10. Can you confirm you are missing livesearch also when the number is >10?

library(teal.modules.clinical)
ADSL <- tmc_ex_adsl
ADSL$EOSDY[1] <- NA_integer_

app <- init(
  data = cdisc_data(
    ADSL = ADSL,
    code = "
      ADSL <- tmc_ex_adsl
      ADSL$EOSDY[1] <- NA_integer_
    "
  ),
  modules = modules(
    tm_t_summary(
      label = "Demographic Table",
      dataname = "ADSL",
      arm_var = choices_selected(choices = variable_choices(ADSL), selected = "ARM"),
      add_total = TRUE,
      summarize_vars = choices_selected(choices = variable_choices(ADSL), selected = "SEX"),
      useNA = "ifany"
    )
  )
)
shinyApp(app$ui, app$server)

[Carlucc2]

Thanks @gogonzo and @Melkiades to follow-up on this. I confirm I'm not able to see the livesearch also when the number is >10. I included all variables from ADSL that is way more than 10.

[donyunardi]

I got another report on this and can confirmed that this behavior happened when delayed data is used for summarize_vars.

Code

library(teal.modules.clinical)

tdm <- teal_data_module(
  ui = function(id) {},
  server = function(id) {
    moduleServer(id, function(input, output, session) {
      reactive({
        data <- cdisc_data(
          ADSL = tmc_ex_adsl
        )
      })
    })
  }
)

app <- init(
  data = tdm,
  modules = modules(
    tm_t_summary(
      label = "Demographic Table",
      dataname = "ADSL",
      arm_var = choices_selected(c("ARM", "ARMCD"), "ARM"),
      add_total = TRUE,
      summarize_vars = choices_selected(
        variable_choices("ADSL"),
        c("SEX", "RACE")
      ),
      useNA = "ifany"
    )
  )
)
if (interactive()) {
  shinyApp(app$ui, app$server)
}

This is because the live-search option is not being setup when the pickerInput is updated after the delayed choices is resolved.

Specifically this line in teal.widgets:
https://github.com/insightsengineering/teal.widgets/blob/b9fc8170dc4cb851e44d340910055d97eecfcd28/R/optionalInput.R#L298-L306

The solution is to add the live-search option. Once I did this, I can see the search box again.