tests/testthat/test_leaflet.R

In MahShaaban/MSDR: Visualizing NOAA earthquak data

context("Test mapping tools")

test_that("est eq_map gives the right object", {
  # load data
  file_path <- system.file("extdata", "signif.tsv", package = "MSDR")
  signif <- read_tsv(file_path) %>%
    eq_clean_date %>%
    eq_clean_location

  # make plot
  p <- signif %>%
    filter(COUNTRY == 'MEXICO' & year(date) >= 2000) %>%
    mutate(popup_text = eq_create_label(.)) %>%
    eq_map()

  # object class
  expect_is(p, class = c("leaflet", "htmlwidget"))
})