tests/testthat/test-theme.R

context("theme")

test_that("set_theme works", {
  
  set_theme("billboard")
  expect_identical(getOption("billboard.theme"), "billboard.min.css")
  
  set_theme("insight")
  expect_identical(getOption("billboard.theme"), "insight.min.css")
  
  set_theme("graph")
  expect_identical(getOption("billboard.theme"), "graph.min.css")
  
})

Try the billboarder package in your browser

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

billboarder documentation built on Sept. 29, 2023, 5:07 p.m.