context("fromJSON NA values")
test_that("fromJSON NA values", {
objects <- list(
numbers = c(1,2, NA, NaN, Inf, -Inf, 3.14),
logical = c(TRUE, FALSE, NA),
integers = as.integer(1,2,3),
num = 3.14,
bool = FALSE,
character = c("FOO","NA", NA, "NaN"),
integer = 21L,
boolNA = as.logical(NA),
df = data.frame(foo=c(1,NA))
)
#test all but list
lapply(objects, function(object){
expect_that(fromJSON(toJSON(object)), equals(object))
});
#test all in list
expect_that(fromJSON(toJSON(objects)), equals(objects))
});
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.