tests/testthat/test-lattice.R

context("Handles lattice objects")

library(lattice)

testGraph <- xyplot(Wind~Day, data = airquality, main = "Test")

test_that("Defaults work with lattice objects", {
  expect_error(structure(ggTag(testGraph)), NA)
})
andyofsmeg/ggTag documentation built on July 8, 2019, 5:45 a.m.