Parse (broken) iCal to CSV suitable for Google Calendar

ical2csv.R

library(ical)
library(dplyr)
library(tidyr)
library(lubridate)

d <- list.files("~/Downloads", "^[0-9]+.ics$", full.names = TRUE) %>%
  lapply(ical::ical_parse_df) %>%
  lapply(mutate_if, is.factor, as.character) %>%
  bind_rows() %>%
  as_tibble()

d %>%
  separate(
    summary, 
    into=c("name", "group", "room"),
    sep = "; "
  ) %>%
  transmute(
    Subject = name,
    Description = paste(name, group, room, sep=" -- "),
    `Start Date` = strftime(start, format="%m/%d/%Y"),
    `Start Time` = strftime(start, format="%I:%M %p", tz="CET"),
    `End Date` = strftime(end, format="%m/%d/%Y"),
    `End Time` = strftime(end, format="%I:%M %p", tz="CET")
  ) %>%
  readr::write_csv(path="calendar.csv")