context("DateToInt")
test_that(
"DateToInt units = years",
{
expect_equal(DateToInt(as.Date("2013-06-06"), as.Date("2018-08-12")), 5)
})
test_that("DateToInt units = months",
{
expect_equal(
DateToInt(as.Date("2013-06-06"), as.Date("2018-08-12"),
units = "months"), 62)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.