Nothing
context("Testing functions in utils.R")
test_that("check_hub accepts defaults and returns URL", {
swmc_stat <- check_hub("swmc")
kist_stat <- check_hub("kisters")
quint_stat<- check_hub("quinte")
expect_true(is.character(swmc_stat))
expect_true(is.character(kist_stat))
expect_true(is.character(quint_stat))
})
test_that("check_hub returns error if hub is not a character", {
expect_error(check_hub(1234))
})
test_that("check_date returns error if start/end date cannot be parsed", {
expect_error(check_date("2019-0222-01", "2018-01-01"))
expect_error(check_date("2019-01-01", "2019-0222-01"))
expect_error(check_date("2019-0222-01", "2019-02222-05"))
})
test_that("check_date returns error if start_date > end_date", {
expect_error(check_date("2019-01-01", "2018-01-01"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.