context("canvasXpress Charts - Venn")
vdata <- data.frame(AC = 456, A = 340, ABC = 552, ABCD = 148, BC = 915,
ACD = 298, BCD = 613, B = 562, CD = 143, ABD = 578,
C = 620, D = 592, AB = 639, BD = 354, AD = 257)
vlegend <- list(A = "List 1", B = "List 2", C = "List 3", D = "List 4")
test_that("vennData as list parameter", {
result <- canvasXpress(vennData = list(vdata),
vennLegend = vlegend,
graphType = "Venn",
title = "vennData as list",
vennGroups = 4)
check_ui_test(result)
})
test_that("vennData as data", {
result <- canvasXpress(data = vdata,
vennLegend = vlegend,
graphType = "Venn",
title = "vennData as data",
vennGroups = 4)
check_ui_test(result)
})
test_that("vennData required", {
expect_error(canvasXpress(vennLegend = vlegend,
graphType = "Venn",
vennGroups = 4),
regexp = "vennData cannot be NULL!")
expect_error(canvasXpress(vennData = NULL,
vennLegend = vlegend,
graphType = "Venn",
vennGroups = 4),
regexp = "vennData must be a data.frame, matrix, or named list")
expect_error(canvasXpress(data = NULL,
vennLegend = vlegend,
graphType = "Venn",
vennGroups = 4),
regexp = "vennData cannot be NULL!")
expect_error(canvasXpress(data = list(vennData = NULL),
vennLegend = vlegend,
graphType = "Venn",
vennGroups = 4),
regexp = "vennData cannot be NULL!")
})
test_that("vennLegend required", {
expect_error(canvasXpress(vennData = vdata,
graphType = "Venn",
vennGroups = 4),
regexp = "Venn diagrams must specify both the <vennLegend> and <vennGroups> parameters")
expect_error(canvasXpress(vennData = vdata,
vennLegend = vlegend,
graphType = "Venn"),
regexp = "Venn diagrams must specify both the <vennLegend> and <vennGroups> parameters")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.