#' rSave
#'
#' This function allows you to get your IP address.
#' @param activate Do you love cats? Defaults to TRUE.
#' @keywords IP Address
#' @export
#' @examples
#' save.plot()
#' save.plot(filename = "dendrogram")
save.plot <- function(filename){
if(Sys.info()["sysname"] == "Darwin") {
# Mac
if(missing(filename)) {
ggsave(filename = paste0(getwd(), "/rplot-", format(Sys.time(), "%Y-%b-%d-%H-%M-%S"), ".jpg"), plot = last_plot())
} else {
ggsave(filename = paste0(getwd(), "/", filename ,"-", format(Sys.time(), "%Y-%b-%d-%H-%M-%S"), ".jpg"), plot = last_plot())
}
} else {
# Windows
if(missing(filename)) {
ggsave(filename = paste0(getwd(), "\\rplot-", format(Sys.time(), "%Y-%b-%d-%H-%M-%S"), ".jpg"), plot = last_plot())
} else {
ggsave(filename = paste0(getwd(), "\\", filename ,"-", format(Sys.time(), "%Y-%b-%d-%H-%M-%S"), ".jpg"), plot = last_plot())
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.