R/image.R

In shinipsum: Lorem-Ipsum Helper Function for 'shiny' Prototyping

#' A Random Image
#'
#' This function returns a random image that can be passed into `renderImage` and `plotOutput`.
#'
#' @return an image
#'
#' @export
#' @examples
#' random_image()

random_image <- function(){
  l <- list.files(system.file("img", package = "shinipsum"), full.names = TRUE)
  img <- normalizePath(sample(l, 1))
  tmpimg <- tempfile()
  file.copy(img, tmpimg)
  list(src = tmpimg)
}