packrat/lib/x86_64-w64-mingw32/3.6.1/jsonlite/tests/testthat/test-toJSON-AsIs.R

In jmcascalheira/LGMIberiaCluster: Research compendium for the paper "Human adaptations and palaeoenvironmental record during the Last Glacial Maximum in the Iberian Peninsula"

context("toJSON AsIs")

test_that("Encoding AsIs", {
  expect_that(toJSON(list(1), auto_unbox=TRUE), equals("[1]"));
  expect_that(toJSON(list(I(1)), auto_unbox=TRUE), equals("[[1]]"));
  expect_that(toJSON(I(list(1)), auto_unbox=TRUE), equals("[1]"));

  expect_that(toJSON(list(x=1)), equals("{\"x\":[1]}"));
  expect_that(toJSON(list(x=1), auto_unbox=TRUE), equals("{\"x\":1}"));
  expect_that(toJSON(list(x=I(1)), auto_unbox=TRUE), equals("{\"x\":[1]}"));

  expect_that(toJSON(list(x=I(list(1))), auto_unbox=TRUE), equals("{\"x\":[1]}"));
  expect_that(toJSON(list(x=list(I(1))), auto_unbox=TRUE), equals("{\"x\":[[1]]}"));
});