tests/testthat/test-cleanName.R

context("Clean name")
library(quid)

test_that("weird input gets cleaned", {
  weird_input <- c("cOnDition", "condition-1", "condition_a", "condition.c", "CoNnnDition")

  expect_equal(cleanName(weird_input),
               c("condition", "condition_1", "condition_a", "condition_c", "connndition"))
})

Try the quid package in your browser

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

quid documentation built on Dec. 9, 2021, 9:06 a.m.