packrat/lib/x86_64-w64-mingw32/3.4.3/rmarkdown/tests/testthat/test-encode-decode.R

context("encoding")

test_that("R objects can be encoded, decoded", {
  data <- list(a = 1L, b = 2L, c = "3")
  encoded <- base64_encode_object(data)
  decoded <- base64_decode_object(encoded)
  expect_equal(data, decoded)
})
UBC-MDS/Karl documentation built on May 22, 2019, 1:53 p.m.