tests/testthat/test-encryption.R

test_that("encryption and decryption", {
  expect_equal({
    df <- data.frame(vec = c("foo", "bar"))
    df$vec <- encrypt_vec(df$vec)
    decrypt_vec(df$vec)
  }, c("foo", "bar"))
})

Try the cookiemonster package in your browser

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

cookiemonster documentation built on May 29, 2024, 8:12 a.m.