context("test-rx_alnum")
test_that("alnum works", {
# expect match
expect_true(grepl(rx_alnum(), "abc123"))
# dont expect match
expect_false(grepl(rx_alnum(), "!"))
# expect pipe functionality to work
expect_equal(rx() %>% rx_start_of_line() %>% rx_alnum(), "^[A-z0-9]")
# expect inverse
expect_true(grepl(rx_alnum(inverse = TRUE), "!"))
# expect error if incorrect inverse value
expect_error(grepl(rx_alnum(inverse = 1), "!"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.