tests/testthat/test-functions.R

In markusntz/ggOBI: Contains a ggplot theme and some plotting functions

# quick test
require(ggplot2)
require(ggOBI)

context("try functions")

p <- ggplot(data = diamonds, aes(color, fill = color)) +
  geom_bar()

p2 <- ggplot(data = diamonds, aes(color, clarity, colour = cut)) +
  geom_point()

test_that("all functions can be executed", {
  expect_silent(p + theme_obi())
  expect_silent(p + scale_fill_obi("oranges"))
  expect_silent(p2 + scale_color_obi("greys"))
  expect_silent(p2 + scale_colour_obi("obi_autumn"))
})

test_that("color palettes can be loaded", {
  expect_silent(obi_palettes)
})