#' @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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.