tests/testthat/test-paletteer_c.R

In EmilHvitfeldt/paletteer: Comprehensive Collection of Color Palettes

test_that("paletteer_c return correct number of colors", {
  expect_length(paletteer_c("grDevices::rainbow", 3), 3)
  expect_length(paletteer_c("grDevices::rainbow", 9), 9)
})

test_that("paletteer_c returns characters", {
  expect_type(paletteer_c("grDevices::rainbow", 3), "character")
})

test_that("paletteer_c throws an error when n is unspecified", {
  expect_error(paletteer_c("grDevices::rainbow"))
})

test_that("direction works correctly in paletteer_c", {
  expect_equal(
    paletteer_c("grDevices::rainbow", 3, direction = 1),
    prismatic::color(c("#FF0000FF", "#00FF00FF", "#0000FFFF"))
  )
  expect_equal(
    paletteer_c("grDevices::rainbow", 3, direction = -1),
    prismatic::color(c("#0000FFFF", "#00FF00FF", "#FF0000FF"))
  )
  expect_error(paletteer_c("grDevices::rainbow", 3, direction = 10))
})

test_that("paletteer_c works with quoted palettes", {
  expect_equal(
    paletteer_c(`"grDevices::rainbow"`, 3),
    paletteer_c("grDevices::rainbow", 3)
  )
})

test_that("paletteer_c works when called from another function", {
  new_function <- function(x) {
    paletteer_c(x, 4)
  }

  expect_equal(
    new_function("grDevices::rainbow"),
    paletteer_c("grDevices::rainbow", 4)
  )
})

test_that("paletteer_c works with ggthemes", {
  testthat::skip_if_not_installed("ggthemes")

  expect_identical(
    length(paletteer_c("ggthemes::Blue", n = 4)),
    4L
  )

  expect_identical(
    length(paletteer_c("ggthemes::Orange-Blue Diverging", n = 5)),
    5L
  )
})

test_that("paletteer_c works with harrypotter", {
  testthat::skip_if_not_installed("harrypotter")

  expect_identical(
    length(paletteer_c("harrypotter::always", n = 4)),
    4L
  )
})