#' @export
WebPlot <- function(width=640, height=480, type='png', ...) {
file <- paste('tmp-',paste(sprintf('%x',as.integer(runif(4)*65536)),collapse=''),'.tmp',sep='')
Cairo(width, height, type=type, file=file, ...)
mime <- switch(type, png="image/png", pdf="application/pdf", jpg="image/jpeg", jpeg="image/jpeg", gif="image/gif", "application/octet")
structure(list(file=file,type=type,mime=mime,width=width,height=height), class="WebPlot")
}
as.WebResult.WebPlot <- function(x, ...) {
dev.off()
structure(c("tmpfile", x$file, x$mime), class="WebResult")
}
as.character.WebPlot <- function(x, ...) {
dev.off()
paste("<img src='tmp?file=",x$file,"&mime=",x$mime,"' width=",x$width," height=",x$height,">",sep='')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.