R/Image.R

In mbadge/vizR: Provides helper fxns for general visualization tasks

#' @export
Viz <- function(x, ...) {
    UseMethod("Viz", x)
}

#' Rasterize an EBImage Image object figure.
#'
#' @param img_arr an EMIage `Image` object
#'
#' @return side-effect: draws figure
#'
#' @importFrom dplyr "%>%"
#' @export
Viz.Image <- function(img_arr) {
    stopifnot(inherits(img_arr, "Image"))
    img_arr %>%
        EBImage::normalize() %>%
        EBImage::display(method="raster")
}