packrat/lib/x86_64-w64-mingw32/3.6.1/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)
})
jmcascalheira/LGMIberiaCluster documentation built on June 8, 2021, 10 a.m.