tests/testthat/test-as.keyvalue.R

a <- decoder::as.keyvalue(elixhauser, "icd10se")


test_that("as.keyvalue", {
  expect_message(
    decoder::as.keyvalue(elixhauser, "icd10se"),
    "Classification based on: icd10"
  )
  expect_s3_class(a, "keyvalue")
  expect_gte(nrow(a), 1500)
})

Try the coder package in your browser

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

coder documentation built on March 31, 2023, 10:21 p.m.