packrat/lib/x86_64-w64-mingw32/3.6.1/jsonlite/tests/testthat/test-toJSON-matrix.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 Matrix")

test_that("Encoding a Matrix", {
  expect_that(toJSON(matrix(1)), equals("[[1]]"));
  expect_that(toJSON(matrix(pi), digits=5), equals("[[3.14159]]"));
  expect_that(toJSON(matrix(1:2)), equals("[[1],[2]]"));  
  expect_that(toJSON(matrix(1:2, nrow=1)), equals("[[1,2]]")); 
  expect_that(toJSON(matrix(state.x77[1,1, drop=FALSE])), equals("[[3615]]"));
});