R/image.R

In polymathematic/Longform: A framework for generating dynamic longform HTML in R

#' Add an image tag (Deprecated)
#'
#' Format an HTML image tag
#'
#' @param src TBD
#' @param alt TBD
#' @export

CreateImageTag <- function(url, alt = NULL){

  #Create tag
  if(is.null(alt)){
    output <- sprintf("<img src=%s></img>", url)
  } else {
    output <- sprintf("<img src=%s alt=%s></img>", url, alt)
  }

  #Class as image
  class(output) <- "image"

  #Return output
  return(output)

}