tests/testthat/test-data_loading.R

context("Data Loading")

test_that("std_time is returning a two character element", {
  expect_that(std_time(c(12, 4, 2.9)), equals(c("12", "04", "02")))
})

test_that("eq_clean_data computes dates",{
  expect_that(colnames(eq_clean_data())[48], equals("date"))
})
KDallaporta/CapstoneProject documentation built on May 12, 2019, 1:09 p.m.