Nothing
context("code")
test_that("doesn't work", {
expect_error(code(decoder::snomed$value, "snomed", verbose = FALSE),
"Some values have a non 1:1 relation to their key.")
expect_error(capture_output(code(decoder::snomed$value, "snomed")),
"Values above have a non unique relation to their key!")
})
test_that("works", {
expect_equal(code(kon$value, "kon"), as.character(1:2))
})
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.