context("test-r-utils.R")
test_that("check_sex works as it should", {
expect_error(check_sex("male"), NA)
expect_error(check_sex("female"), NA)
expect_equal(check_sex("male"), "male")
expect_equal(check_sex("female"), "female")
expect_error(check_sex("random"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.