context("test-word-functions")
test_that("word functions work", {
# expect minimal output
expect_equal(rx_word() %>% as.character(), "\\w+")
expect_equal(rx_word_char() %>% as.character(), "\\w")
expect_equal(rx_word_edge() %>% as.character(), "\\b")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.