tests/testthat/test_geom_timeline.R

In seewilds/timelineR: ggplot2 Extension for Plotting Timeline Data

context("Test Timeline Stat and Geom")

usa_hurricanes <- final_hurricanes%>%dplyr::filter(COUNTRY == "USA")
t <- ggplot2::ggplot(data = usa_hurricanes, ggplot2::aes(DATE, COUNTRY)) + geom_timeline(ggplot2::aes(xmin =as.Date("1999-01-01")))

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