tests/testthat/test-encode_decode.R

test_that("encode decode works", {

	df <- data.frame(x = 1, y = "1")

  expect_equal(class(decode(df, x)$x), "character")
  expect_equal(class(encode(df, y)$y), "numeric")
})
myominnoo/mStats documentation built on Nov. 29, 2023, 2:36 a.m.