test_that("date_tool", {
expect_error(dateInput_range(date = NULL, date = ""))
expect_error(dateInput_range(character(0L)))
expect_error(dateInput_ramge(date = "word"))
expect_error(dateInput_range(end > start))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.