#' Save a ggplot object
#'
#' Standard method for saving ggplot objects for best
#' quality for the desired use case
#'
#' @param p ggplot object you want to save
#' @param filename The name of the file you want to export to
#' @param units The units for dimensions of the plot (default inches)
#' @param width Width of the plot in units (default 10)
#' @param height Height of the plot in units (default 10)
#' @param dpi Dots per inch (detault 300)
#'
#' @return No return value
#'
#' @examples
#' df <- data.frame(x = rnorm(100))
#' p <- ggplot2::ggplot(data = df, ggplot2::aes(x = x)) + ggplot2::geom_histogram()
#' saveplot(p, filename = 'plot.png')
#'
#' @import ggplot2
#' @import ragg
#' @export
saveplot <- function(
	p,
	filename,
	units = 'in',
	width = 10,
	height = 10,
	dpi = 600
){
	ggplot2::ggsave(
		filename = filename,
		plot = p,
		width = width,
		height = height,
		units = units,
		dpi = dpi,
		device = ragg::agg_png
	)
}