tests/testthat/test-lookup_encrypter.R

test_that("lookup encrypter", {
  enc <- LookupEncrypter$new(hash_key = "hash", seed="seed")

  enc$transform(starwars$name)
  
  expect_true(
    length(enc$lookup) > 0
  )
})

Try the deident package in your browser

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

deident documentation built on April 3, 2025, 6:14 p.m.