tests/testthat/test-backlink_Input.R

test_that("backlink works", {
  backlink_check <- backlink_Input("backId")

  expect_identical(
    backlink_check$children[[1]],
    "Back"
  )

})

Try the shinyGovstyle package in your browser

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

shinyGovstyle documentation built on March 18, 2022, 7:24 p.m.