Nothing
context("serialisation")
test_that("string serialisation is transitive", {
f <- function(x, identical = TRUE) {
y <- string_to_object(object_to_string(x))
is_equivalent_to <- if (identical) is_identical_to else equals
expect_equivalent(x, y)
}
f(NULL)
f(1)
f(pi)
f(f, identical = FALSE)
f(1:10)
set.seed(1)
x <- runif(100)
expect_identical(string_to_object(object_to_string(x)), x)
f(x, FALSE)
})
test_that("binrary serialisation is transitive", {
f <- function(x, identical = TRUE) {
y <- bin_to_object(object_to_bin(x))
is_equivalent_to <- if (identical) is_identical_to else equals
expect_equivalent(x, y)
}
f(NULL)
f(1)
f(f, identical = FALSE)
f(1:10)
## In contrast with string serialization above, binary serialization
## is exact (as well as being about 10x faster which is nice).
set.seed(1)
x <- runif(100)
f(x)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.