R/rational-print.R

In bertcarnell/rational: Rational Numbers in S3, S4, R6, S7

#' @include rational-class.R
NULL

#' Base Print Method
#'
#' @param n numerator
#' @param d demoninator
#' @param v numeric value
#' @noRd
.printRational <- function(n, d, v)
{
  print(paste0("(", n, " / ", d, ") = ", v))
}

#' Base cat Method
#'
#' @param n numerator
#' @param d demoninator
#' @param v numeric value
#' @noRd
.catRational <- function(n, d, v)
{
  cat(paste0("(", n, " / ", d, ") = ", v))
}

#' Print an object of class Rational
#'
#' @name rational-print
#' @param object the object to show
#' @param x rational object
#' @param ... other arguments passed to print
#'
#' @importFrom methods setMethod
#' @importFrom S7 new_generic S7_dispatch method
#'
#' @examples
#' a <- rational(1L, 3L, "S3")
#' print(a)
NULL

#' @rdname rational-print
#' @export
setMethod("print", signature = "rationalS4",
          function(x)
          {
            .printRational(x@n, x@d, x@v)
          })

#' @rdname rational-print
#' @export
setMethod("show", signature = "rationalS4",
          function(object)
          {
            .catRational(object@n, object@d, object@v)
          })

#' @rdname rational-print
#' @method print rationalS3
#' @export
print.rationalS3 <- function(x, ...)
{
  .printRational(x$n, x$d, x$v)
}

#' @rdname rational-print
#' @exportS3Method methods::show
#' @export
show.rationalS3 <- function(object)
{
  .catRational(object$n, object$d, object$v)
}

#' @rdname rational-print
#' @method print rationalR6
#' @export
print.rationalR6 <- function(x, ...)
{
  .printRational(x$getNumerator(), x$getDenominator(), x$getValue())
}

#' @rdname rational-print
#' @exportS3Method methods::show
#' @export
show.rationalR6 <- function(object)
{
  .catRational(object$getNumerator(), object$getDenominator(), object$getValue())
}

#' @rdname rational-print
#' @method print rational::rationalS7
#' @export
'print.rational::rationalS7' <- function(x, ...)
{
  .printRational(x@n, x@d, x@v)
}

#' @rdname rational-print
#' @exportS3Method methods::show
#' @export
'show.rational::rationalS7' <- function(object)
{
  .catRational(object@n, object@d, object@v)
}