utils functions for chess

check_functions.R

#' Title
#'
#' @param x 
#'
#' @return 
#' @export
#'
#' @examples
is_integer <- function(x){
  if (is.na(x)){
    is.integer(x)
  } else if (x%%1==0){
    TRUE
  } else {
    FALSE
  }
}

#' Title
#'
#' @param x 
#'
#' @return
#' @export
#'
#' @examples
is_leap_year <- function(x) {
  if (!is.vector(x, mode = "numeric")) {
    rlang::abort(
      message = "x should be a numeric vector",
      class = "error",
      call = caller_env()
    )
  }
  lubridate::leap_year(
    lubridate::make_date(
      year = x
    )
  )
}