# secMalASCT utilities
#
# License: GPL version 3
# Jens Mathis Sauer (c) 2020

#
# Write plot to filename
#
# This will plot "fun" with arguments "..." as filetype "ftype" and
# the output to "filename". Title and legends can be passed as list,
# or NULL if not needed.
# Default filesize is 3000x3000 px and 300 dpi resolution.
#
sma_plot_file <- function(fname, ftype, title_list, legend_list, fun, ...) {
	# Open file for writing
	ftype(filename = fname, width = 3000, height = 3000, res = 300)

	# run "fun" with passed arguments
	do.call(fun, list(...))

	if (!is.null(title_list)) {
		do.call(title, title_list)
	}
	if(!is.null(legend_list)) {
		do.call(legend, legend_list)
	}
	# hide "null device 1" in garbage
	garbage <- dev.off()
}