R/dinosauR.r

In williamcioffi/cioffihelperfunctions: c_ioffi h_elper f_unctions

#' i'm a dinosauR
#'
#' @return a dinosauR?
#' @export
#' @importFrom grDevices as.raster
#' @importFrom jpeg readJPEG
#' @examples
#' \dontrun{
#' dinosauR()
#' # and enjoy
#' }

dinosauR <- function() {
  img <- jpeg::readJPEG(system.file(".", "kiwi_and_egg_picturesque_new_zealand_1913.jpg", package = "chf"))
  r <- as.raster(img[, , 1:3])
  plot(r)
}