R/to_gmt.R

In parttime: Partial Datetime Handling

#' Generic for coercing timestamps to GMT timezone
#'
#' @param x object to coerce to GMT time
#'
#' @return A time object adjusted to GMT time
#'
#' @export
to_gmt <- function(x) {
  UseMethod("to_gmt")
}



#' @export
to_gmt.matrix <- function(x) {
  x[, "hour"] <- x[, "hour"] + x[, "tzhour"] %/% 1
  x[, "min"]  <- x[, "min"]  + x[, "tzhour"] %% 1 * 60
  x[, "tzhour"] <- 0
  reflow_fields(x)
}



#' @export
to_gmt.array <- function(x) {
  array(apply(x, 3, to_gmt), dim = dim(x), dimnames = dimnames(x))
}



#' @export
to_gmt.partial_time <- function(x) {
  vctrs::field(x, "pttm_mat") <- to_gmt(vctrs::field(x, "pttm_mat"))
  x
}



#' @export
to_gmt.timespan <- function(x) {
  vctrs::field(x, "tmspn_arr") <- to_gmt(vctrs::field(x, "tmspn_arr"))
  x
}



prune_tz <- function(x) {
  args <- rep_len(alist(, ), length(dim(x)))
  args[[2]] <- -which(dimnames(x)[[2]] %in% "tzhour")
  do.call("[", append(list(x), args))
}