Nothing
test_that("one_of validator works", {
fail_category <- "D"
success_category <- "A"
categories <- c("A", "B", "C")
expect_error(validate_one_of(success_category, categories), NA)
expect_error(validate_one_of(fail_category, categories), "fail_category must be one of: A, B, C")
})
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.