Nothing
context("display_pal")
test_that("palette display", {
expect_silent(display_carto_all(n = NULL))
expect_silent(display_carto_all(type = "diverging"))
expect_silent(display_carto_all(type = c("diverging", "aggregation")))
# bad inputs
expect_error(display_carto_pal("New name"))
expect_error(display_carto_pal(6, "New name"))
expect_error(display_carto_pal(1))
# warnings
expect_warning(display_carto_pal(2, name = "PurpOr"))
# expect_warning(display_carto_pal(12, name = "Burg"))
})
context("display_pal")
test_that("visual elements are correct", {
skip_on_cran()
A3 = function() display_carto_pal(7, "Burg")
B3 = function() display_carto_pal(2, "ag_GrnYl")
C3 = function() display_carto_pal(12, "Bold")
D3 = function() display_carto_pal(7, "Tropic")
vdiffr::expect_doppelganger("a3", A3)
vdiffr::expect_doppelganger("b3", B3)
vdiffr::expect_doppelganger("c3", C3)
vdiffr::expect_doppelganger("d3", D3)
})
context("display_carto_all")
test_that("palette display", {
# bad inputs
expect_error(display_carto_all(type = "Qual"))
# warnings
expect_warning(display_carto_all(n = 77))
expect_warning(display_carto_all(n = 1))
})
context("display_carto_all")
test_that("visual elements are correct", {
skip_on_cran()
A4 = function() display_carto_all()
B4 = function() display_carto_all(type = "quantitative")
C4 = function() display_carto_all(type = c("diverging", "qualitative", "aggregation"))
D4 = function() display_carto_all(3, type = "quantitative")
E4 = function() display_carto_all(7, type = "quantitative")
vdiffr::expect_doppelganger("a4", A4)
vdiffr::expect_doppelganger("b4", B4)
vdiffr::expect_doppelganger("c4", C4)
vdiffr::expect_doppelganger("d4", D4)
vdiffr::expect_doppelganger("E4", E4)
})
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.