R/html.img.R

In s-mckay-curtis/mcmcplots: Create Plots from MCMC Output

#' @examples \dontrun{
#' .html.img("index.html", class="myid", src="my.png", width=400)
#' }
.html.img <- function(file, ...) {
  fq <- getOption("useFancyQuotes")
  options(useFancyQuotes=FALSE)
  att <- unlist(list(...))
  out <- '<img'
  out <- c(out, paste(names(att), dQuote(att), sep="="))
  out <- c(out, '/>')
  out <- paste(out, collapse=" ")
  cat(out, "\n", file=file, append=TRUE)
  options(useFancyQuotes=fq)
}