tests/testthat/test-r-themes.R

context("test-r-themes")

testthat::test_that("the HS theme and HS color palette is applied without error", {
  df <- simData(25, 1)
  p <- plotTime(df) +
    themeHS() +
    scale_fill_HS()
  expect_error(print(p), NA)
})
MarijnJABoer/HeavySetR documentation built on May 22, 2019, 5:31 p.m.