R/show.R

In onion: Octonions and Quaternions

setMethod("show", "onion", function(object){onion_show(object)})

`onion_show` <- function(x,h=getOption("show_onions_horizontally")){
  x <- as.matrix(x)
  if(ncol(x)==0){
    if(nrow(x)==4){
      cat("the NULL quaternion\n")
    } else if (nrow(x)==8){
      cat("the NULL octonion\n")
    } else {
      stop("not recognised")
    }
    return(x)
  }
  if(is.null(colnames(x))){colnames(x) <- paste("[",seq_len(ncol(x)),"]",sep="")}
  if(isTRUE(h)){
    return(invisible(print(t(x))))
  } else {
    return(invisible(print(x)))
  }
}