tests/testthat/test-geom_timeline.R

In arielaragon/Mastering_Software_Dev_R_Master: The Capstone Package Is The Final Project of a Coursera Training

library(testthat)
library(earthquakes)
library(ggplot2)

test_that("test geom_timeline function", {

  firstColumnNames <- c("I_D","FLAG_TSUNAMI","YEAR","MONTH","DAY","HOUR")

  filename <- system.file("extdata", "data.txt", package="earthquakes")
  raw_data <- earthquakes::load_data(filename)
  cleaned_data <- earthquakes::eq_clean_data(raw_data)
  cleaned_data <- earthquakes::eq_location_clean(cleaned_data)

  timeline_plot <- ggplot(
    cleaned_data,
    aes(x = DATE, label = LOCATION_NAME, magnitude = EQ_MAG_MW)
  )+
    earthquakes::geom_timeline()+
    earthquakes::geom_timeline_label()

  expect_true(!any(!((names(timeline_plot$labels) == c("x","label","magnitude")))))
})