context("test-capture_groups")
test_that("capture groups work", {
# expect correct output
expect_equal(rx_begin_capture() %>% as.character(), "(")
expect_equal(rx_end_capture() %>% as.character(), ")")
expect_equal(rx_begin_capture() %>% rx_end_capture() %>% as.character(), "()")
expect_equal("" %>% rx_begin_capture() %>% as.character(), "(")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.