R/format.image.R

In takewiki/tsui: user interface elements from shiny,H5,css,js in takewiki solutions

#' Title image formmater
#'
#' @param fileName  filename
#' @param height height
#' @param width width
#' @param alt alter text
#'
#' @return return_value
#' @export
#'
#' @examples format.image();
format_image <- function(fileName='demo.jpg',
                     height='400px',
                     width='400px',
                     alt='image file holderplace'){
  res <-list(src=fileName,
       height=height,
       width=width,
       alt=alt)
  return(res)
}