context("test-rx_lowercase")
test_that("lowercase works", {
# expect match
expect_true(grepl(rx_lowercase(), "a"))
# dont expect match
expect_false(grepl(rx_lowercase(), "A"))
expect_false(grepl(rx_lowercase(), "!"))
# expect pipe functionality
expect_equal(rx() %>% rx_start_of_line() %>% rx_lowercase() %>% as.character(), "^[a-z]")
# expect inverse
expect_true(grepl(rx_lowercase(inverse = TRUE), "ABC"))
expect_true(grepl(rx_lowercase(inverse = TRUE), "!"))
expect_false(grepl(rx_lowercase(inverse = TRUE), "abc"))
# expect error if not TRUE/FALSE for inverse arg
expect_error(rx_lowercase(inverse = "x"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.