R/Image.R

In shinipsum: Lorem-Ipsum-Like Helpers for Fast Shiny Prototyping

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

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