tests/testthat/test-toJSON-logical.R

In jsonlite: A Simple and Robust JSON Parser and Generator for R

test_that("Encoding Logical", {
  expect_equal(toJSON(TRUE), "[true]");
  expect_equal(toJSON(FALSE), "[false]");
  expect_equal(toJSON(as.logical(NA)), "[null]");
  expect_equal(toJSON(as.logical(NA), na="string"), "[\"NA\"]");
  expect_equal(toJSON(c(TRUE, NA, FALSE)), "[true,null,false]");
  expect_equal(toJSON(c(TRUE, NA, FALSE), na="string"), "[true,\"NA\",false]");
  expect_equal(toJSON(logical()), "[]");
});

test_that("Encoding Logical in Data Frame", {
  expect_equal(toJSON(data.frame(foo=TRUE)), "[{\"foo\":true}]");
  expect_equal(toJSON(data.frame(foo=FALSE)), "[{\"foo\":false}]");
  expect_equal(toJSON(data.frame(foo=as.logical(NA))), "[{}]");
  expect_equal(toJSON(data.frame(foo=as.logical(NA)), na="null"), "[{\"foo\":null}]");
  expect_equal(toJSON(data.frame(foo=as.logical(NA)), na="string"), "[{\"foo\":\"NA\"}]");
  expect_equal(toJSON(data.frame(foo=c(TRUE, NA, FALSE))), "[{\"foo\":true},{},{\"foo\":false}]");
  expect_equal(toJSON(data.frame(foo=logical())), "[]");
});