tests/testthat/test-select-multi.R

test_that("select is stable", {
    expect_snapshot(cc(inline_select("select_id",
        list("Dog names" = c("Fido", "Rex"), "Cat names" = c("Felix", "Boots")),
        selected = "Rex", multiple = TRUE, meaning = "Select a pet name")))
})

Try the inshiny package in your browser

Any scripts or data that you put into this service are public.

inshiny documentation built on Feb. 14, 2026, 5:06 p.m.