Read ics file
ic_read(file)
object of class ics
f <- system.file("extdata", "england-and-wales.ics", package = "calendar")
ics_df = ic_read(f)
head(ics_df)
#> # A tibble: 6 × 6
#> `DTEND;VALUE=DATE` `DTSTART;VALUE=DATE` SUMMARY UID SEQUENCE DTSTAMP
#> <date> <date> <chr> <chr> <chr> <chr>
#> 1 2012-01-03 2012-01-02 New Year’s Day ca6a… 0 201808…
#> 2 2012-04-07 2012-04-06 Good Friday ca6a… 0 201808…
#> 3 2012-04-10 2012-04-09 Easter Monday ca6a… 0 201808…
#> 4 2012-05-08 2012-05-07 Early May bank… ca6a… 0 201808…
#> 5 2012-06-05 2012-06-04 Spring bank ho… ca6a… 0 201808…
#> 6 2012-06-06 2012-06-05 Queen’s Diamon… ca6a… 0 201808…