class_partial_time_is.R

#' Check if elements of a partial time vector is NA
#'
#' @param x partial_time vector to test
#' @param ... additional arguments unused
#'
#' @return A logical vector indicating whether each element in the
#'   `partial_time` vector is `NA`.
#'
#' @export
is.na.partial_time <- function(x, ...) {
  unname(apply(is.na(vctrs::field(x, "pttm_mat")), 1, all))
}



#' Shorthand for checking partial time inheritance
#'
#' @param x object to test
#'
#' @return A logical scalar indicating whether an object is a `partial_time`
#'   object.
#'
#' @rdname is_parttime
#' @family is_parttime
#' @export
is_partial_time <- function(x) {
  inherits(x, "partial_time")
}



#' @rdname is_parttime
#' @export
is.partial_time <- is_partial_time



#' @rdname is_parttime
#' @export
is_parttime <- is_partial_time



#' @rdname is_parttime
#' @export
is.parttime <- is_partial_time