# NOTER
# 
# .ics uploades til git, herefter muligt at abbonere.


source("/Users/au301842/stRoke/R/write_ical.R")

library(dplyr)

df <-
  readODS::read_ods("./side projects/jc2023.ods")

output <- "./side projects/jc_cal.ics"

df |> mutate(
  dato.clean = lubridate::dmy(paste0(
    `Dato `, "/", format(Sys.Date(), format = "%Y")
  )),
  title = paste0("Neuro JC: ", `Ansvarlig `, " [", `Vejleder `, "]"),
  start = "09:00:00",
  end = "10:00:00",
  place = "J119"
) |>
  write_ical(date = "dato.clean") |> 
  calendar::ic_write(file = output)