tests/testthat/test-5-stats.R

context("stats")

test_that("stats daily (correct columns)", {
  skip_on_cran()

  stats_daily <- admin_stats_daily()

  expect_equal(names(stats_daily), c("date", "retailer_id", "count", "price_sum", "price_avg", "price_std", "price_min", "price_max"))
})

Try the trundler package in your browser

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

trundler documentation built on July 29, 2020, 1:06 a.m.