tests/testthat/test-clean_heading_text.R

test_that("clean heading text", {
  clean_heading_check <- clean_heading_text("This is my clean heading link!")

  expect_equal(
    "this_is_my_clean_heading_link",
    clean_heading_check
  )
})

Try the shinyGovstyle package in your browser

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

shinyGovstyle documentation built on Sept. 12, 2024, 5:07 p.m.