Read the selected values from a categorical teal.picks slot. — app_driver_get_teal_picks

While the summary badge has never been opened, picker inputs are not bound. This helper reads the committed values from exported picks state. Use this helper only for tests and development workflows.

Usage

app_driver_get_teal_picks_slot(app_driver, pick_id, slot = "variables")

Arguments

app_driver: App driver object.
pick_id: character(1) teal.picks id.
slot: character(1) slot name. Defaults to "variables".

Value

Selected value(s) for the requested slot.

Examples

if (FALSE) { # \dontrun{
if (requireNamespace("shinytest2", quietly = TRUE)) {
  data <- within(teal.data::teal_data(), iris <- iris)
  test_picks <- picks(
    datasets("iris"),
    variables(choices = c("Sepal.Length", "Sepal.Width"), selected = "Sepal.Length")
  )
  teal_app <- teal::init(
    data = data,
    modules = teal::modules(tm_merge(label = "badge test", picks = list(pick = test_picks)))
  )
  app_driver <- suppressWarnings(shinytest2::AppDriver$new(
    shiny::shinyApp(ui = teal_app$ui, server = teal_app$server)
  ))
  on.exit(app_driver$stop())
  app_driver$wait_for_idle()
  app_driver_get_teal_picks_slot(app_driver, "pick", "variables")
}
} # }