tests/testthat/test-data-sanity.R

In jackwasey/icd.data: International Classification of Diseases (ICD) Data

context("data sanity")

pkg_ns <- asNamespace("icd.data")
lazy_env <- pkg_ns$.__NAMESPACE__.$lazydata

test_that("row numbers sequential for data frames", {
  for (data_name in ls(envir = lazy_env)) {
    d <- get(data_name, envir = lazy_env)
    if (!is.data.frame(d)) next
    expect_gt(nrow(d), 1)
    expect_gt(ncol(d), 1)
    expect_identical(
      row.names(d),
      as.character(
        seq_along(d[[1]])
      ),
      info = paste("Data = ", data_name)
    )
    for (col in names(d)) {
      if (inherits(d[[col]], "icd9") ||
        inherits(d[[col]], "icd9")) {
        expect_is(d[[col]], "character",
          info = paste(
            "Data = ", data_name,
            ", Column = ", col
          )
        )
      }
    }
  }
})