Nothing
context("autoplot")
test_that("autplot matches mocked plots", {
cube <- loadCube("cubes/univariate-categorical.json")
expect_doppelganger("univariate-dot", autoplot(cube, "dot"))
expect_doppelganger("univariate-tile", autoplot(cube, "tile"))
expect_doppelganger("univariate-bar", autoplot(cube, "bar"))
cube <- loadCube("cubes/cat-x-cat.json")
expect_doppelganger("cat-cat-dot", autoplot(cube, "dot"))
expect_doppelganger("cat-cat-tile", autoplot(cube, "tile"))
expect_doppelganger("cat-cat-bar", autoplot(cube, "bar"))
prop_cube <- crunch::prop.table(cube, 2)
expect_doppelganger("cat-cat_prop_dot", autoplot(prop_cube, "dot"))
expect_doppelganger("cat-cat_prop_bar", autoplot(prop_cube, "bar"))
expect_doppelganger("cat-cat_prop_tile", autoplot(prop_cube, "tile"))
cube <- loadCube("cubes/cat-x-mr-x-mr.json")
expect_doppelganger("cat-x-mr-x-mr-dot", autoplot(cube, "dot"))
expect_doppelganger("cat-x-mr-x-mr-tile", autoplot(cube, "tile"))
expect_doppelganger("cat-x-mr-x-mr-bar", autoplot(cube, "bar"))
expect_doppelganger("cat_x_mr_x_mr_prop", autoplot(crunch::prop.table(cube, 1:2)))
cube <- loadCube("cubes/catarray-x-cat.json")
expect_doppelganger("catarray-x-cat-dot", autoplot(cube, "dot"))
expect_doppelganger("catarray-x-cat-tile", autoplot(cube, "tile"))
expect_doppelganger("catarray-x-cat-bar", autoplot(cube, "bar"))
expect_doppelganger("catarray_x_cat_prop", autoplot(crunch::prop.table(cube, 1:2)))
cube <- loadCube("cubes/catarray-x-mr.json")
cube@useNA <- "always"
expect_doppelganger("catarray-x-mr-dot", autoplot(cube, "dot"))
# x position of text in R-4.0 is changed by .01
if (R.version$major >= "4") expect_doppelganger("catarray-x-mr-tile", autoplot(cube, "tile"))
expect_doppelganger("catarray-x-mr-bar", autoplot(cube, "bar"))
tbl <- readRDS("tbl_crunch_mocks/4d_tbl_crunch.Rds")
expect_is(tbl, "tbl_crunch_cube")
expect_doppelganger("catarray-x-cat-x-cat-dot", autoplot(tbl, "dot"))
expect_doppelganger("catarray-x-cat-x-cat-tile", autoplot(tbl, "tile"))
expect_doppelganger("catarray-x-cat-x-cat-bar", autoplot(tbl, "bar"))
})
test_that("autoplot errors when given too many dimensions", {
tbl <- readRDS("tbl_crunch_mocks/4d_tbl_crunch.Rds")
expect_error(
autoplot(tbl, measure = c("count", "unweighted_n")),
"Autoplot can only support one measure"
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.