tests/testthat/testthat-load_data.R

In dannyjwpark/NOAA: NOAA Earthquakes

library(Rcapture)
library(testthat)
context("Testing that the raw data loads correctly")

test_that("Data can be collected from the data_raw folder and loaded into memory", {
  df <- load_data()
  expect_equal(dim(df)[1], 5979)
  expect_true("data.frame" %in% class(df))
})