tests/testthat/test-as.value.R

context("as.value")

test_that("as.value", {
  expect_is(as.value(1:10), c("value", "integer"))
})

test_that("is.value", {
  expect_true(is.value(decoder::snomed$value))
  expect_true(is.value(decoder::snomed$key))
})

Try the decoder package in your browser

Any scripts or data that you put into this service are public.

decoder documentation built on April 22, 2020, 5:07 p.m.