testthat/test_eq_map.R

In sheila-NAA/Mastering-software-development: Cleaning Raw Data

context("test-eq_map")

map_output <- noaa %>%
  eq_clean_data %>%
  dplyr::filter(
    country == "MEXICO",
    lubridate::year(date) >= 2000
  ) %>%
  eq_map("date")


test_that("correct class", {
  expect_is(map_output, "leaflet")
})


test_that("error on wrong data", {
  expect_error(eq_map(mtcars, "foo"), "Please, provide correct data")
})