Nothing
context("palette generation")
test_that("palette generation is accurate", {
# data is intact
expect_equal(dim(cartocolors), c(34, 13))
expect_equal(dim(metacartocolors), c(34, 5))
# options work as expected
expect_equal(carto_pal(3, name = "Safe"), c("#88CCEE", "#CC6677", "#888888"))
expect_equal(carto_pal(3, name = "PurpOr"), toupper(c("#f9ddda", "#ce78b3", "#573b88")))
expect_equal(carto_pal(2, name = "Burg"), c("#ffc6c4", "#672044"))
expect_equal(carto_pal(7, "Burg"), carto_pal(name = "Burg"))
# bad inputs
expect_error(carto_pal("New name"))
expect_error(carto_pal(6, "New name"))
expect_error(carto_pal(1))
# warnings
expect_warning(carto_pal(2, name = "PurpOr"))
expect_warning(carto_pal(13, name = "Safe"))
})
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.