tests/testthat/test-str_to_anycase.R

test_that("`str_to_anycase()`: basic usage", {
  x <- c("JAN", "feb", "mAr")
  y <- c("[Jj][Aa][Nn]", "[Ff][Ee][Bb]", "[Mm][Aa][Rr]")
  expect_identical(str_to_anycase(x), y)
})

Try the sdtm.oak package in your browser

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

sdtm.oak documentation built on April 3, 2025, 9:37 p.m.