tests/testthat/test-eq_map.R

# Test eq_map

test_that("test_eq_map", {
  x <- earthquake_read() %>%

    eq_clean_data() %>%

    mutate(popup_text = eq_create_label(.)) %>%

    eq_map(annot_col = "popup_text")

  expect_that(x, is_a("leaflet"))

})
codyschulz/earthquakeMap documentation built on May 25, 2019, 4:20 p.m.