Nothing
context("test-rx_anything_but")
test_that("anything_but rule works", {
# exoect the correct output
expect_equal(rx_anything_but(value = "abc") %>% as.character(), "([^abc]*)")
expect_equal(rx_anything_but(value = "abc", mode="lazy") %>% as.character(), "([^abc]*?)")
# expect an error if nothing is given
expect_error(rx_anything_but())
# expect an error if invalid 'mode' is given
expect_error(rx_anything_but(value = "abc", mode = "whatever"), regexp="Please.*")
# expect .data works
expect_equal(rx_anything_but("^", value = "abc") %>% as.character(), "^([^abc]*)")
expect_equal(rx_anything_but("^", value = "abc", mode = "lazy") %>% as.character(), "^([^abc]*?)")
})
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.