R/utils.R

In dttr2: Manipulate Date, POSIXct and hms Vectors

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

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