Nothing
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)
})
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.