tests/testthat/test-show_pal.R

test_that("show_pal outputs a plot", {
  pal <- c("#ffb3ba","#ffdfba","#ffffba","#baffc9","#bae1ff")
  p  <- show_pal(pal)

  expect_identical(class(p), c("gg", "ggplot"))
})
aneuraz/vizoR documentation built on Feb. 21, 2020, 2:43 p.m.