Nothing
context("regex")
test_that("regex ok ", {
library(purrr)
hop <- c()
for ( sentence in fcuk:::regex_rules()$error){
hop <- c(hop, fcuk:::regex_rules()$regex %>%
map_chr(~sub(.x,"\\1",sentence)) %>%
unname() %>%
.[. != sentence] )
}
expect_true(setequal(sort(unique(hop)),c("dplir","iri","sl")))
})
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.