R/utils.R

In dttr2: Manipulate Date, POSIXct and hms Vectors

Defines functions c.hms c.POSIXct

c.POSIXct <- function(..., recursive = FALSE) {
  dots <- list(...)
  .POSIXct(c(unlist(lapply(dots, unclass))), tz = dtt_tz(dots[[1]]))
}

c.hms <- function(..., recursive = FALSE) {
  dots <- list(...)
  hms::as_hms(c(unlist(lapply(dots, unclass))))
}

Try the dttr2 package in your browser