tests/testthat/test-create-events-df.R

test_that("create_events_df() creates df of Github events",{
  y <- create_events_df()
  expect_equal(ncol(y),4)
  expect_equal(nrow(y),30)
})
nganlyle/534_project documentation built on Feb. 12, 2020, 3:11 a.m.