stRoke/R/ds2ical.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()
}