tests/testthat/test_geom_timeline_label.R

In Brunobt80/rPkgNOAADataset: Visualizing NOAA Dataset

context("GEOM Timeline Label")

df_clean <- eq_clean_data()

obj_out <- df_clean %>% dplyr::filter(COUNTRY %in% c('USA', 'PERU')) %>%
        dplyr::filter(date > '2000-01-01') %>%
        ggplot2::ggplot() +
        geom_timeline(aes(x = date, y = COUNTRY, color = TOTAL_DEATHS,
                          size = EQ_PRIMARY)) +
        geom_timeline_label(aes(x = date,
                                y = COUNTRY,
                                magnitude = EQ_PRIMARY,
                                label = LOCATION_NAME,
                                n_max = 2))

obj_layer <- ggplot2::layer_data(obj_out)

test_that("Is GEOM_Timeline + GEOM_Timeline_Label functions TOGETHER ?", {
        expect_s3_class(obj_out, 'ggplot')
        expect_length(unique(obj_layer$y), 2)
})