tests/testthat/test_eq_map.R

In maianhdang/noaa.visualise: NOAA Earthquakes Processing and Visualising

library(testthat)

## Testing the eq_map

test_that("The output is leaflet",
          {data("raw_data")
            data <- eq_clean_data(raw_data)
            input_data <- dplyr::filter(data, COUNTRY == "MEXICO" &
                                          lubridate::year(date) >= 2000)
            leaf <- eq_map(input_data, annot_col = "date")
            expect_that(leaf, is_a("leaflet"))
          })