R/save.plot.R

In sabalicodev/sabali: Twitter Text & Sentiment Analysis for R

#' 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())
	
}
	
}

}