R/parse.R

In poissonconsulting/openinghours: Read and Write Strings of Opening Hours

Defines functions parse parse_interval parse_time

parse_time <- function(x) {
  chk_time_regex(x)
  hms::parse_hm(x)
}

parse_interval <- function(x) {
  chk_interval_regex(x)
  x <- string_split(x)
  tibble::tibble(
    Open = parse_time(x[1]),
    Close = parse_time(x[2])
  )
}

parse <- function(x) {
  parse_interval(x)
}