tests/testthat/test_data.R

In mobilizingcs/mobilizr: Functions for the Mobilize Introduction to Data Science course.

library(mobilizr)
context("Test data files")

test_that("Preloaded data loads", {
  expect_equal(dim(arm_span), c(90, 4))
  expect_equal(dim(atu_clean), c(10493, 8))
  expect_equal(dim(atu_dirty), c(10493, 8))
  expect_equal(dim(atus), c(10493, 43))
  expect_equal(dim(cdc), c(15624, 33))
  expect_equal(dim(dwp_2010), c(1705, 19))
  expect_equal(dim(dwp_student), c(1193, 19))
  expect_equal(dim(dwp_teacher), c(512, 19))
  expect_equal(dim(futbol), c(55, 6))
  expect_equal(dim(movie), c(4935, 19))
  expect_equal(dim(slasher), c(485, 2))
  expect_equal(dim(titanic), c(1000, 8))
  expect_equal(dim(titanic_test), c(308, 8))
  expect_equal(dim(cereal), c(40, 12))
  expect_equal(dim(cereal_test), c(20, 12))
  expect_equal(dim(nutrition), c(1241, 12))
})