R/ic_extract.R

In ATFutures/ical: Create, Read, Write, and Work with 'iCalander' Files, Calendars and Scheduling Data

#' Extract raw contents of iCal fields
#'
#' Return info from iCal files, return raw unprocessed text.
#'
#' @inheritParams ic_find
#'
#' @export
#' @examples
#' pattern = "TSTAMP"
#' ic_extract_raw(ical_example, pattern)
ic_extract_raw <- function(x, pattern) {
  locations <- ic_find(x, pattern)
  x_sub <- x[locations]
  res_raw <- gsub(pattern = paste0(pattern, ":"), replacement = "", x_sub)
  res_raw
}

#' Extract contents of iCal fields
#'
#' Return formatted data from iCal fields
#'
#' @inheritParams ic_find
#'
#' @export
#' @examples
#' ic_extract(ical_example, "DTSTART")
ic_extract <- function(x, pattern) {

  res = ic_extract_raw(x, pattern) # gives the content

  if(grepl("^\\d{8}T\\d{6}Z?$", res)) {
    res = ic_datetime(res)
  }
  res
}