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"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.