mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-24 21:51:55 +01:00
65 lines
2.2 KiB
R
65 lines
2.2 KiB
R
|
#' Convert data set to ical file
|
||
|
|
#'
|
||
|
|
#' @param data data set
|
||
|
|
#' @param start dplyr style event start datetime column name. Data or datetime
|
||
|
|
#' object.
|
||
|
|
#' @param end dplyr style event end datetime column name. Data or datetime
|
||
|
|
#' object.
|
||
|
|
#' @param location dplyr style event location column name
|
||
|
|
#' @param summary.glue.string character string to pass to glue::glue() for event
|
||
|
|
#' name (summary). Can take any column from data set.
|
||
|
|
#' @param description.glue.string character string to pass to glue::glue() for
|
||
|
|
#' event description. Can take any column from data set.
|
||
|
|
#'
|
||
|
|
#' @return tibble of class "ical"
|
||
|
|
#' @export
|
||
|
|
#'
|
||
|
|
#' @examples
|
||
|
|
#' df <- dplyr::tibble(
|
||
|
|
#' start = c(Sys.time(), Sys.time() + lubridate::days(2)),
|
||
|
|
#' id = c("1", 3), assessor = "A", location = "111", note = c(NA, "OBS")
|
||
|
|
#' ) |>
|
||
|
|
#' dplyr::mutate(end = start + lubridate::hours(2))
|
||
|
|
#' df |> ds2ical()
|
||
|
|
#' df |> ds2ical(summary.glue.string = "ID {id} [{assessor}] {note}")
|
||
|
|
#' # Export .ics file: (not run)
|
||
|
|
#' ical <- df |> ds2ical(start, end, location,
|
||
|
|
#' description.glue.string = "{note}")
|
||
|
|
#' # ical |> calendar::ic_write(file=here::here("calendar.ics"))
|
||
|
|
ds2ical <- function(data,
|
||
|
|
start = start,
|
||
|
|
end = end,
|
||
|
|
location = NULL,
|
||
|
|
summary.glue.string = "ID {id} [{assessor}]",
|
||
|
|
description.glue.string = NULL) {
|
||
|
|
ds <- data |>
|
||
|
|
dplyr::mutate(
|
||
|
|
SUMMARY = glue::glue(summary.glue.string, .na = ""),
|
||
|
|
DTSTART = {{ start }},
|
||
|
|
DTEND = {{ end }},
|
||
|
|
LOCATION = {{ location }}
|
||
|
|
)
|
||
|
|
|
||
|
|
if (!is.null(description.glue.string)) {
|
||
|
|
ds <- dplyr::mutate(ds,
|
||
|
|
DESCRIPTION = glue::glue(
|
||
|
|
description.glue.string,
|
||
|
|
.na = ""
|
||
|
|
)
|
||
|
|
)
|
||
|
|
}
|
||
|
|
|
||
|
|
ds |>
|
||
|
|
dplyr::select(tidyselect::any_of(c("SUMMARY",
|
||
|
|
"DTSTART",
|
||
|
|
"DTEND",
|
||
|
|
"LOCATION",
|
||
|
|
"DESCRIPTION"))) |>
|
||
|
|
(\(x){
|
||
|
|
x |>
|
||
|
|
dplyr::mutate(UID = replicate(nrow(x), calendar::ic_guid()))
|
||
|
|
})() |>
|
||
|
|
dplyr::filter(!is.na(DTSTART)) |>
|
||
|
|
# dplyr::filter(dplyr::if_any(DTSTART, Negate(is.na))) |>
|
||
|
|
calendar::ical()
|
||
|
|
}
|