tests/testthat/test_thm.R

In jyjek/jyjekNOAA: Plot for Analysis NOAA dataset

context('thm')

test_that('thm elements', {
  
  plot <- ggplot2::qplot(rnorm(5,10,3), rnorm(5,10,3))
  plot <- plot + NOAA_thm()
  
  expect_equal(plot$theme$legend.position, 'bottom')
  expect_equal(plot$theme$legend.box, 'horizontal')
  expect_equal(plot$theme$axis.line.x, element_line())
  expect_equal(plot$theme$axis.ticks.x, element_line())
  expect_equal(plot$theme$panel.grid.major.x, element_blank())
  expect_equal(plot$theme$panel.grid.minor.x, element_blank())
  
})