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)
})

Try the pals package in your browser

Any scripts or data that you put into this service are public.

pals documentation built on Sept. 11, 2024, 5:28 p.m.