Nothing
test_that("check.dates corrects backwards dates", {
start <- as.Date("2020-01-31")
end <- as.Date("2010-01-01")
expect_message(check.dates(dates = c(start, end)),
regexp = "Your start and end dates were reversed. They have*")
dates <- check.dates(dates = c(start, end))
expect_equal(dates[[1]], end)
expect_equal(dates[[2]], start)
})
test_that("check.dates stops with date in future", {
start <- as.Date("2010-01-01")
end <- lubridate::today() + 1
expect_error(check.dates(dates = c(start, end)))
})
test_that("check.dates stops on invalid date format", {
start <- as.Date("2010-01-01")
end <- 21000180
expect_error(check.dates(dates = c(start, end)))
})
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.