#' extplot
#'
#' extended plot
#'
#' @param title graph title.
#' @param id id of the graph.
#' @param project number of the project
#' @param subtitle graph subtitle.
#' @param plot plot, default is last plot.
#' @param display display the plot after run the code, default set to TRUE.
#' @param w width, default is 15.
#' @param h height, default is 10.
#' @param caption caption text, default is Sys.time.
#' @param theme ggtheme, default set to theme_bw.
#' @param extensions vector with desirable extensions.
#'
#' @return
#' @export
#'
#' @examples
# library(ggplot2)
# qplot(x=c(1:100), y=sample(1:100, 100))
# extplot("x", 1, 1)
extplot<-function (title, id, project, subtitle = "", plot = last_plot(),
display = T, w = 15, h = 10, caption = Sys.time(), theme = theme_minimal(),
extensions = c("pdf", "png"))
{
temp <- plot + theme + labs(title = title, subtitle = subtitle,
caption = caption)
for (ext in seq_along(extensions)) {
if(extensions[ext]=="pdf"){
dir.create(paste("./", extensions[ext], sep = ""))
ggplot2::ggsave(file = paste("./", extensions[ext], "/", extensions[ext],
"_", id, "_", project, ".", extensions[ext], sep = ""),
plot = temp, width = w, height = h,useDingbats=FALSE)}
else{ dir.create(paste("./", extensions[ext], sep = ""))
ggplot2::ggsave(file = paste("./", extensions[ext], "/", extensions[ext],
"_", id, "_", project, ".", extensions[ext], sep = ""),
plot = temp, width = w, height = h)}
}
if (isTRUE(display)) {
temp
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.