tests/testthat/test_check_data.r

In MrEtmAr/Pratik_atlastools: Tools for High Frequency Tracking Data

context("check data for columns\n")
testthat::test_that("data has expected columns", {

  # make some test data
  testdata <- data.table::data.table(
    x = as.double(1:1e3),
    y = as.double(1:1e3),
    time = as.numeric(1:1e3)
  )

  # expect no error
  testthat::expect_silent(object = {
    atl_check_data(
      data = testdata,
      names_expected = c("x", "y", "time")
    )
  })

  # expect an error
  testthat::expect_error(expr = {
    atl_check_data(
      data = testdata,
      names_expected = c("X", "Y", "TIME")
    )
  })
})