tests/testthat/test-geom.R

In KDallaporta/CapstoneProject:

context("Geoms")

db <- head(eq_clean_data(),500)

test_that("geom_timeline returns a ggplot", {
  expect_that(
    geom_timeline(db), testthat::is_a("ggplot"))
})

test_that("geom_timeline returns a ggplot", {
  expect_that(
    geom_timeline(db)+geom_timeline_label(db), testthat::is_a("ggplot"))
})