tests/testthat/test-lags.R

#################################################################################################
context("identify lags")
#################################################################################################
test_that("identify_lags outputs a data table", {
  micropem_na <- convert_output(system.file("extdata", "file_with_na.csv",
                                            package = "rtimicropem"))
  results <- identify_lags(micropem_na)
  expect_that(results, is_a("tbl_df"))
})
masalmon/ammon documentation built on Aug. 4, 2017, 6:42 a.m.