28 lines
550 B
R
28 lines
550 B
R
|
# 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)
|
||
|
|
|
||
|
|
|
||
|
|
|