tests/testthat/test-util_app_sm.R

In dataquieR: Data Quality in Epidemiological Research

test_that("util_app_sm works", {
  skip_on_cran() # deprecated
  md <- prep_create_meta(
    VAR_NAMES = letters,
    DATA_TYPE = DATA_TYPES$FLOAT,
    MISSING_LIST = "",
    KEY_STUDY_SEGMENT =
      c(rep("a", 10), rep(NA, 6), rep("b", 10))
  )
  suppressMessages(md <- prep_meta_data_v1_to_item_level_meta_data(md))
  expect_equal(util_app_sm(md, as.factor(rep(1, nrow(md)))),
               as.factor(c(rep(3, 10), rep(2, 6), rep(3, 10))))
})