tests/testthat/test_metadata.R

In rmgpanw/codemapper: Functions for Mapping Between Clinical Coding Systems

metadata <- codemapper_metadata()

# `CLINICAL_CODE_MAPPINGS_MAP` --------------------------------------------

test_that("`CLINICAL_CODE_MAPPINGS_MAP` has only unique to_from mapping combinations", {
  expect_true(
    length(
      paste(CLINICAL_CODE_MAPPINGS_MAP$from, CLINICAL_CODE_MAPPINGS_MAP$to, sep = "_")
    ) == nrow(CLINICAL_CODE_MAPPINGS_MAP)
  )
})

test_that("`CLINICAL_CODE_MAPPINGS_MAP` has only unique values in 'mapping_table' column", {
  expect_true(
    length(unique(CLINICAL_CODE_MAPPINGS_MAP$mapping_table)) == nrow(CLINICAL_CODE_MAPPINGS_MAP)
  )
})

# `CODE_TYPE_TO_LKP_TABLE_MAP` --------------------------------------------

test_that("`CODE_TYPE_TO_LKP_TABLE_MAP` has only unique values", {
  expect_true(length(CODE_TYPE_TO_LKP_TABLE_MAP$code) == length(unique(CODE_TYPE_TO_LKP_TABLE_MAP$code)))

  expect_true(length(CODE_TYPE_TO_LKP_TABLE_MAP$lkp_table) == length(unique(CODE_TYPE_TO_LKP_TABLE_MAP$lkp_table)))
})