utils: Hide garbage output from dev.off()

dev.off() prints not usefull messages like "null device 1" when finishing. This supresses these messages.
2020-11-03 16:55:29 +01:00 · 2020-11-03 16:55:29 +01:00 · 815731cbcf
commit 815731cbcf
parent 439810a544
1 changed files with 2 additions and 1 deletions
--- a/utils.R
+++ b/utils.R
@ -24,5 +24,6 @@ sma_plot_file <- function(fname, ftype, title_list, legend_list, fun, ...) {
 	if(!is.null(legend_list)) {
 		do.call(legend, legend_list)
 	}
-	dev.off()
+	# hide "null device 1" in garbage
+	garbage <- dev.off()
 }