tests/testthat/test-cchart-smallmultiples.R

In Displayr/flipChart: Single function for calling charts - CChart

context("CChart - small multiples")

xx <- structure(list(`1 - 6CvrwXdVdJ` = 1:10, `2 - 9UwNndFTfm` = 2:11,
    `3 - W71N36nz3i` = 3:12), .Names = c("1 - 6CvrwXdVdJ", "2 - 9UwNndFTfm",
"3 - W71N36nz3i"), row.names = c(NA, -10L), class = "data.frame", title = "Main title")

test_that("Small multiples",
{
    expect_error(res <- CChart("Column", xx, small.multiples = TRUE, append.data = TRUE,
                         title = "Main title", nrows = 3, paneltitle.font.color = "red"), NA)
    expect_equal(flipFormat::ExtractChartData(res), xx)
    expect_warning(CChart("Column", xx, small.multiples = FALSE,
                         title = "Main title", nrows = 3, panel.title.font.color = "red"),
                   "The following arguments have been ignored: nrows")
    expect_warning(CChart("Radar", xx, small.multiples = TRUE,
                         title = "Main title", nrows = 2, average.show = TRUE,
                         x.title.font.family = "X axis"),
                   "The following arguments have been ignored: x.title.font.family")
})