tests/testthat/test-get_soc_code.R

test_that("Get SOC code is OK!", {
  data <- fread("data/soc_3_example.csv")
  expect_error(soc_code_data <- get_soc_code(data, lvl = "soc_3"), NA)
  expect_true(soc_code_data[, !any(is.na(code))], NA)
})

Try the iscoCrosswalks package in your browser

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

iscoCrosswalks documentation built on May 17, 2022, 5:05 p.m.