# test script for addVariable.R - testcases are NOT comprehensive!
test_that("addVariable works", {
expect_equal(addVariable(getCombined(),
variable.name = "Type",
variables = rep(c("B", "L"), 4)),
getdata("processing", "addVariable_data"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.