Convert ical object to character strings of attributes
ic_character(ic, zulu = FALSE)
ic <- ical(ical_example)
ic_character(ic)
#> [1] "BEGIN:VCALENDAR"
#> [2] "PRODID:-//Google Inc//Google Calendar 70.9054//EN"
#> [3] "VERSION:2.0"
#> [4] "CALSCALE:GREGORIAN"
#> [5] "METHOD:PUBLISH"
#> [6] "X-WR-CALNAME:atf-test"
#> [7] "X-WR-TIMEZONE:Europe/London"
#> [8] "BEGIN:VEVENT"
#> [9] "DTSTART:20180809T160000"
#> [10] "DTEND:20180809T163000"
#> [11] "DTSTAMP:20180810T094100Z"
#> [12] "UID:1119ejg4vug5758527atjcrqj3@google.com"
#> [13] "CREATED:20180807T133712Z"
#> [14] "DESCRIPTION:\\n"
#> [15] "LAST-MODIFIED:20180807T133712Z"
#> [16] "LOCATION:"
#> [17] "SEQUENCE:0"
#> [18] "STATUS:CONFIRMED"
#> [19] "SUMMARY:ical programming mission"
#> [20] "TRANSP:OPAQUE"
#> [21] "END:VEVENT"
#> [22] "END:VCALENDAR"
identical(ical_example, ic_character(ic))
#> [1] FALSE