context("test-ic-read")
test_that("ic-read works", {
f <- system.file("extdata", "england-and-wales.ics", package = "calendar")
ics_df = ic_read(f)
expect_true(nrow(ics_df) > 6)
})
test_that("ic-write", {
ic <- ical(ical_example)
ic_write(ic, file.path(tempdir(), "ic.ics"))
f <- system.file("extdata", "example.ics", package = "calendar")
fic <- readLines(file.path(tempdir(), "ic.ics"))
fraw <- readLines(f)
# when we write back we do not add Z to DTSTART, DTEND etc
# that is why currently
# identical(fic, fraw) is FALSE
expect_true(identical(fic[1], fraw[1]))
expect_true(identical(fic[22], fraw[22]))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.