tests/testthat/test-shiny-getters.R

test_that("get_unique_inputId() works", {

  expect_identical(get_unique_inputId("foo", c("bar", "baz")), "foo")
  expect_identical(get_unique_inputId("foo", c("foo", "bar", "baz")), "foo_1")

})

Try the vegawidget package in your browser

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

vegawidget documentation built on May 29, 2024, 12:17 p.m.