library(rwebppl)
context("Passing data")
test_that("list passing from r to webppl and back", {
expect_equal(webppl("data",
data = list(a = 5, b = 7),
data_var = "data"),
list(a = 5, b = 7))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.