tests/testthat/test-get_isco_code.R

test_that("Match job title to ISCO code is OK!", {
  dat <- data.table::fread("data/isco_3_example.csv")
  expect_error(dat_codes <- get_isco_code(dat, lvl = 3), NA)
  expect_true(dat_codes[, all(nchar(code) == 3)])
  expect_equal(dat_codes[, class(code)], "character")
})

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.