context("appPieChart")
test_that("multiplication works", {
lab <- c("good", "bad")
val <- c(1, -1)
expect_is(appPieChart(lab, val), "gvis")
expect_is(appPieChart(lab, val), "list")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.