tests/testthat/test_top_records.R

context("Testing top_records")

test_that("Number of records shown does not match requested input", {
  ss <- top_records(n = 10, mtcars, "hp")
  expect_equal(nrow(ss),10)
})
jtuttle7/LearnFunctions documentation built on May 25, 2019, 6:25 p.m.