context("test_week_functions")
test_that("in_week functions works", {
first_week_of_year <- in_week(1)
expect_true(test_date(dmy("01/01/2000"), first_week_of_year))
expect_true(test_date(dmy("02/01/2000"), first_week_of_year))
expect_true(test_date(dmy("01/01/1990"), first_week_of_year))
expect_false(test_date(dmy("31/12/1990"), first_week_of_year))
twenty_eight_week_of_year <- in_week(28)
expect_true(test_date(dmy("12/07/1990"), twenty_eight_week_of_year))
expect_false(test_date(dmy("20/07/1990"), twenty_eight_week_of_year))
})
test_that("in_week() functions error on invalid input", {
expect_error(in_week(0))
expect_error(in_week(54))
expect_error(in_week(1.5))
expect_error(in_isoweek(0))
expect_error(in_isoweek(54))
expect_error(in_isoweek(1.5))
expect_error(in_epiweek(0))
expect_error(in_epiweek(54))
expect_error(in_epiweek(1.5))
})
test_that("in_week functions works with multiple inputs", {
first_or_second_week_of_year <- in_week(1, 2)
expect_true(test_date(dmy("01/01/2000"), first_or_second_week_of_year))
expect_true(test_date(dmy("02/01/2000"), first_or_second_week_of_year))
expect_true(test_date(dmy("08/01/2000"), first_or_second_week_of_year))
expect_false(test_date(dmy("15/01/2000"), first_or_second_week_of_year))
expect_true(test_date(dmy("01/01/1990"), first_or_second_week_of_year))
expect_false(test_date(dmy("31/12/1990"), first_or_second_week_of_year))
})
test_that("in_isoweek functions works", {
first_isoweek_of_year <- in_isoweek(1)
last_isoweek_of_year <- in_isoweek(52)
expect_true(test_date(dmy("01/01/2000"), last_isoweek_of_year))
expect_true(test_date(dmy("03/01/2000"), first_isoweek_of_year))
expect_false(test_date(dmy("02/01/2000"), first_isoweek_of_year))
expect_true(test_date(dmy("01/01/1990"), first_isoweek_of_year))
expect_true(test_date(dmy("31/12/1990"), first_isoweek_of_year))
})
test_that("in_epiweek functions works", {
first_epiweek_of_year <- in_epiweek(1)
last_epiweek_of_year <- in_epiweek(52)
expect_true(test_date(dmy("30/12/2000"), last_epiweek_of_year))
expect_true(test_date(dmy("03/01/2000"), first_epiweek_of_year))
expect_false(test_date(dmy("09/01/2000"), first_epiweek_of_year))
expect_true(test_date(dmy("01/01/1990"), first_epiweek_of_year))
expect_true(test_date(dmy("31/12/1990"), first_epiweek_of_year))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.