transfer from old repo

side projects/jc_kalender.R

@@ -0,0 +1,28 @@
+# 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)
+
+
+