tests/testthat/test-eq_create_label.R

In raggichr/earthquakes: MSDR Capstone: Build an R Package for Earthquakes Data

context("Create popup text for markers")

test_that("Create pop-up text",{
    filename <- system.file("extdata", "signif.txt", package = "earthquakes")
    library(readr)
    eq_data_raw <- readr::read_delim(file = filename, delim = "\t")
    eq_data <- eq_clean_data(eq_raw = eq_data_raw)
    library(dplyr)
    library(lubridate)
    library(leaflet)
    eq_data %>%
        filter(COUNTRY %in% "ITALY" &
                   lubridate::year(DATE) >= 2000) -> eq_data_sample

    p <- eq_data_sample %>%
        eq_clean_data() %>%
        filter(COUNTRY %in% "ITALY" & lubridate::year(DATE) >= 2000) %>%
        mutate(popup_text = eq_create_label(.)) %>%
        eq_map(annot_col = "popup_text")

    expect_is(p, c("leaflet", "htmlwidget"))
})