R/operators.r

In metacran/semver: Semantic versioning for R packages

#' @method "<" semver
#' @rdname compare

`<.semver` <- function(lhs, rhs) {
  lhs$compare(rhs) < 0
}

#' @method ">" semver
#' @rdname compare

`>.semver` <- function(lhs, rhs) {
  lhs$compare(rhs) > 0
}

#' @method "<=" semver
#' @rdname compare

`<=.semver` <- function(lhs, rhs) {
  lhs$compare(rhs) <= 0
}

#' @method ">=" semver
#' @rdname compare

`>=.semver` <- function(lhs, rhs) {
  lhs$compare(rhs) >= 0
}

#' @method "==" semver
#' @rdname compare

`==.semver` <- function(lhs, rhs) {
  lhs$compare(rhs) == 0
}

#' @method "!=" semver
#' @rdname compare

`!=.semver` <- function(lhs, rhs) {
  lhs$compare(rhs) != 0
}