tests/testthat/test_pals.maxcolors.R

test_that("pals.maxcolors works", {
  dat <- pals.maxcolors()
  testthat::expect_true(all(
    c("palette","maxcolors","is_finite") %in% names(dat)
  ))
  testthat::expect_gte(nrow(dat), 127)
})
kwstat/pals documentation built on July 19, 2024, 10:26 p.m.