tests/testthat/test-Status.R

test_that("Test Status File", {
  fileName <- ATE.sampleFiles('_Status')
  df <- ATE.status(fileName)

  expect_equal(nrow(df), 19)
})

Try the angstromATE package in your browser

Any scripts or data that you put into this service are public.

angstromATE documentation built on Oct. 21, 2024, 1:06 a.m.