#' Display an Image
#'
#' Display an image in the plot pane.
#'
#' @import grDevices
#' @import imager
#' @param cimage An image to display.
#' @return An image.
#' @export
edger_display <- function(cimage)
{
par(mar = c(0,0,0,0))
plot(cimage)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.