tests/testthat/test-serializeJSON-datasets.R

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

#test serializeJSON

# Note about numeric precision
# In the unit tests we use digits=10. Lowever values will result in problems for some datasets
test_that("Serializing datasets", {
  library(datasets)
  lapply(as.list(ls("package:datasets")), function(x) {
    mycall <- call("expect_equal", call("unserializeJSON", call("serializeJSON", as.name(x), digits = 10)), as.name(x))
    eval(mycall)
  })
})