Use hms columns for non-date time-of-day values (arrivals, etc)

[k5cents]

https://github.com/tidyverse/hms

to_hms <- function(time = "00:00") {
  hms::hms(
    hours = as.integer(substr(time, 1, 2)),
    minutes = as.integer(substr(time, 4, 5))
  )
}

to_hms("05:14")
#> 05:14:00

^{Created on 2021-02-19 by the reprex package (v1.0.0)}