Nothing
library(testthat)
library(campfin)
test_that("regex word breaks can be prevent intra-word replacement", {
x <- "this is a testing string"
y <- str_replace(x, rx_break("sting"), "TEST")
expect_equal(x, y)
x <- "testing one two three"
y <- str_replace(x, rx_break("test"), "abdc")
expect_equal(x, y)
})
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.