Nothing
context("check rewrite")
test_that("check rewrite", {
tt = function(ind) {
for (exp in 2:length(ind)) {
if (ind[[exp]][2] == "FALSE") {
expect_error(re2_replace("a", ind[[1]], ind[[exp]][1]) ,
"rewrite string error")
} else {
# "TRUE"
expect_equal(re2_replace("q", ind[[1]], ind[[exp]][1]), "q")
}
}
}
tt(list(
"abc",
c("foo", TRUE),
c("foo\\", FALSE),
c("foo\\0bar", TRUE)
))
tt(list(
"a(b)c",
c("foo", TRUE),
c("foo\\0bar", TRUE),
c("foo\\1bar", TRUE),
c("foo\\2bar", FALSE),
c("f\\\\2o\\1o", TRUE)
))
tt(list(
"a(b)(c)",
c("foo\\12", TRUE),
c("f\\2o\\1o", TRUE),
c("f\\oo\\1", FALSE)
))
})
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.