test_that("check_date works", {
expect_true(check_date(20110101))
expect_error(check_date(20111301), "month")
expect_true(check_date("20110101"))
expect_error(check_date("20111301"), "month")
expect_true(check_date(as.Date("20110101", format = "%Y%m%d")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.