test_that("extract_reference() extracts the reference term", {
x <- list(age = c("10~20","20~30","30+"), sex = c("Male", "Female"))
z <- list(age = "age [Ref: 10~20]", sex = "sex [Ref: Male]")
expect_equal(extract_reference(x), z)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.