context("pickle")
test_that("Objects can be saved and loaded with pickle", {
skip_if_no_python()
x <- dict()
x$a <- 1
x$b <- 2
py_save_object(x, "x.pickle")
on.exit(unlink("x.pickle"), add = TRUE)
y <- py_load_object("x.pickle")
expect_true(x == y)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.