tests/testthat/test_cleaningFunctions.R

In Juanin2691/toolsEarthquakes: Tools for cleaning and ploting data from The Significant Earthquake Database

test_that("eq_clean_data output r.na = TRUE", {
  clean_1 <- eq_clean_data(data = Earthquakes)
  for(i in 1:ncol(cleanES_1)){
    expect_equal(cleanES_1[, i], clean_1[, i])
  }
  expect_identical(class(clean_1$DATE), class(cleanES_1$DATE))
})

test_that("eq_clean_data output r.na = FALSE", {
  clean_2 <- eq_clean_data(data = Earthquakes, r.na = FALSE)
  for(i in 1:ncol(cleanES_2)){
    expect_equal(cleanES_2[, i], clean_2[, i])
  }
  expect_identical(class(clean_2$DATE), class(cleanES_2$DATE))
})

test_that("eq_location_clean", {
  clean_3 <- eq_location_clean(data = Earthquakes)
  for(i in 1:ncol(clean_3)){
    expect_equal(cleanES_3[, i], clean_3[, i])
  }
})