tests/testthat/test-decode_ids.R

test_that("decoding works", {
  expect_identical(
    decode_ids(c(
      "32013030-2d30-3033-3338-3733fa30c4fa",
      "NA",
      "00-0033873",
      "NA",
      "32013030-2d30-3032-3739-3434d4d3846d"
    )),
    c("00-0033873", NA_character_, "00-0033873", NA_character_, "00-0027944")
  )
})

Try the gsisdecoder package in your browser

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

gsisdecoder documentation built on Oct. 23, 2020, 5:51 p.m.