tests/testthat/test_geom_timeline_label.R

In seewilds/timelineR: ggplot2 Extension for Plotting Timeline Data

context("Test Timeline Label stat and geom")

t <- ggplot2::ggplot(data = usa_hurricanes, ggplot2::aes(DATE, COUNTRY)) 
t <- t + geom_timeline(ggplot2::aes(xmin =as.Date("1999-01-01")))  
t <- t + geom_timeline_label(ggplot2::aes(xmin =as.Date("1990-01-01"), label = LOCATION_NAME))

test_that("t is a list", {
  expect_true(typeof(t) == "list")
})