Nothing
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"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.