tests/testthat/test-load_data.R

In lakrobinson/noaar: Coursera Capstone Project

library(noarr)
library(testthat)

test_that("Data can be pulled in raw form and loaded into memory", {
  df <- load_data()
  expect_equal(dim(df)[1], 5979)
  expect_true("data.frame" %in% class(df))
})