tests/testthat/test_geom_timeline_labels.R

In SanjayShetty01/masteringSoftwareDevelopmentinR: A Capstone Project

library(testthat)
library(ggplot2)


data = system.file('extdata', 'earthquakesData.tsv', package ='masteringSoftwareDevelopmentinR')
data = read_data(data)
cleanedData <- eq_clean_data(data)

g <- ggplot(cleanedData)+
    geom_timeline_label(aes(x = c(date,Location.Name),
                size = Mag,
                color = Deaths,
                fill = Deaths))

test_that("The output is ggplot", {
  expect_s3_class(g, "ggplot")
})