R/YYYY-typecast.R

In BAAQMD/yeartools: Provides CY, RY, PY, and BY classes and methods

#' @note `as.character` just invokes `format`
#' @noRd
#' @export
as.character.YYYY <- function (x, ...) {
  format(x)
}

#' @noRd
#' @export
as.integer.YYYY <- function (x, ...) {
  warning("use elide_year(x) instead of as.integer(x)")
  elide_year(x)
}

#' @param x `YYYY` object
#' @param tz character
#' @param ... ignored
#'
#' @noRd
#' @export
as.Date.YYYY <- function (x, ..., tz = "") {
  datestamp <- paste0(elide_year(x), "-01-01")
  as.Date(datestamp, tz = tz, ...)
}

#' @param x `YYYY` object
#' @param tz character
#' @param ... further arguments to [as.POSIXct()]
#'
#' @noRd
#' @export
as.POSIXct.YYYY <- function (x, tz = "", ...) {
  dttm <- ISOdatetime(elide_year(x), 01, 01, 00, 00, 00, tz = tz)
  as.POSIXct(dttm, tz = tz, ...)
}

#' @note supports regression and prediction use-cases
#' @noRd
#' @export
as.numeric.YYYY <- function (x, ...) {
  warning("use as.numeric(elide_year(x))")
  as.numeric(elide_year(x, ...))
}

#' @note supports regression and prediction use-cases
#' @noRd
#' @export
as.double.YYYY <- as.numeric.YYYY