tests/testthat/test_assess_growth.R

context('assess_growth')

ex <- assess_growth(assess_15, assess_16)

test_that('assess_growth returns data frame', {
  expect_is(ex, 'data.frame')
})


test_that('assess_growth correctly calculates growth data', {
  expect_equal(nrow(ex), 594514)
})
almartin82/nyschooldata documentation built on May 10, 2019, 9:55 a.m.