Nothing
#' @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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.