Nothing
context("catch_error")
test_that("catch_error works", {
library(purrr)
out <- fcuk:::regex_rules()$error %>%
map_chr(~catch_error(.x)) %>%
unique()
expect_equal(out, c("sl","iri","dplir"))
})
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.