recompute live-search in updateoptionalselectinput

[donyunardi]

Fixes #291

• Recompute the option value for live-search in updateOptionalSelectInput.
  This is to anticipate choices being resolved in delayed data scenario. The logic to recompute is the same with this line:

  teal.widgets/R/optionalInput.R

  Line 185 in b9fc817

  "live-search" = ifelse(length(choices) > 10, TRUE, FALSE)

• Update NEWS.

Code for testing

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)
}

[github-actions]

Code Coverage Summary

Filename                      Stmts    Miss  Cover    Missing
--------------------------  -------  ------  -------  ------------------------------------------------------
R/basic_table_args.R             23       0  100.00%
R/draggable_buckets.R            87      87  0.00%    4-163
R/get_dt_rows.R                  13      13  0.00%    44-56
R/ggplot2_args.R                 49       0  100.00%
R/nested_closeable_modal.R       16      16  0.00%    83-98
R/optionalInput.R               256     211  17.58%   150-447, 508, 567, 573, 588-601
R/panel_group.R                  39      39  0.00%    50-136
R/plot_with_settings.R          319      23  92.79%   299-312, 334, 372-373, 384-385, 401, 589-590, 592, 594
R/standard_layout.R              52      20  61.54%   81-99, 106
R/table_with_settings.R         158       1  99.37%   100
R/utils.R                        10       0  100.00%
R/verbatim_popup.R              105      50  52.38%   75-90, 116-117, 119, 127-156, 177
R/white_small_well.R              7       7  0.00%    19-25
TOTAL                          1134     467  58.82%

Diff against main

Filename             Stmts    Miss  Cover
-----------------  -------  ------  -------
R/optionalInput.R       +5      +3  +0.45%
TOTAL                   +5      +3  -0.08%

Results for commit: 799b7e9

Minimum allowed coverage is 80%

♻️ This comment has been updated with latest results

[github-actions]

Unit Tests Summary

  1 files   11 suites   11s ⏱️
118 tests  99 ✅ 19 💤 0 ❌
219 runs  200 ✅ 19 💤 0 ❌

Results for commit e638046.

[github-actions]

Unit Tests Summary

  1 files   11 suites   10s ⏱️
117 tests  98 ✅ 19 💤 0 ❌
217 runs  198 ✅ 19 💤 0 ❌

Results for commit 799b7e9.

♻️ This comment has been updated with latest results.

[gogonzo]

@donyunardi with fresh look I accept a PR. I see the point of setting only live-search option when many choices available.