context("test-test-ic_event")
test_that("error if start or end is NA", {
expect_warning(ic_event(start_time = NA, end_time = NA))
})
test_that("error if start or end is empty string", {
expect_warning(ic_event(start_time = Sys.time(), end_time = ""))
})
test_that("default values work", {
expect_equal(class(ic_event()), c("ical", "tbl_df", "tbl", "data.frame"))
})
test_that("2018-10-12 15:00, end_time = 2018-10-13 15:00 matches default format", {
expect_equal(class(ic_event()), c("ical", "tbl_df", "tbl", "data.frame"))
})
test_that("error if start or end is empty string", {
expect_warning(ic_event(start_time = Sys.time(), end_time = ""))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.