Nothing
context("check quote")
test_that("quote", {
# from re2_test.cc
expect_identical(quote_meta("foo.bar"), "foo\\.bar")
expect_identical(quote_meta("((a|b)c?d*e+[f-h]i)"),"\\(\\(a\\|b\\)c\\?d\\*e\\+\\[f\\-h\\]i\\)")
expect_identical(quote_meta("foo.bar",parallel = T), "foo\\.bar")
expect_identical(quote_meta("((a|b)c?d*e+[f-h]i)", parallel = T),"\\(\\(a\\|b\\)c\\?d\\*e\\+\\[f\\-h\\]i\\)")
# NA test
expect_identical(quote_meta(c("NA",NA), parallel = T),c("NA",NA))
# parallel test
expect_identical(quote_meta(c("((a|b)c?d*e+[f-h]i)","((a|b)c?d*e+[f-h]i)"), parallel = T, grain_size = 1),c("\\(\\(a\\|b\\)c\\?d\\*e\\+\\[f\\-h\\]i\\)", "\\(\\(a\\|b\\)c\\?d\\*e\\+\\[f\\-h\\]i\\)"))
})
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.