tests/testthat/test_eq_cleaning.R

In dtminnick/earthquake: NOAA Significant Earthquake Analysis

library(earthquake)

data("earthquakes")

context("eq_clean_data")

earthquakes <- eq_clean_data(earthquakes)

test_that("function returns a data frame", {

      expect_that(earthquakes, is_a("data.frame"))

})

context("eq_location_clean")

earthquakes <- eq_location_clean(earthquakes)

test_that("function returns a data frame", {

      expect_that(earthquakes, is_a("data.frame"))

      expect_that(earthquakes$COUNTRY[1],equals("Turkey"))

      expect_that(earthquakes$LOCATION_NAME[1], equals("Antakya (Antioch)"))

})

context("eq_select_data")

earthquakes <- eq_select_data(earthquakes)

test_that("function returns a data frame", {

      expect_that(earthquakes, is_a("data.frame"))

      expect_that(ncol(earthquakes), equals(8))

})

context("eq_count_events")

events <- eq_count_events(earthquakes,
                          minimum_date = "2000-01-01",
                          maximum_date = "2018-12-31")

test_that("function returns a data frame", {

      expect_that(events, is_a("data.frame"))

      expect_that(ncol(events), equals(2))

})

context("eq_filter_data")

earthquakes <- eq_filter_data(earthquakes,
                              countries = c("Indonesia", "Japan", "Russia"),
                              minimum_date = "2000-01-01",
                              maximum_date = "2018-12-31")

test_that("function returns a data frame", {

   expect_that(earthquakes, is_a("data.frame"))

})