create.histogram should restore options(warn) to original value

[nwiltsie]

create.histogram temporarily disables warnings...

package-BoutrosLab-plotting-general/R/create.histogram.R

Lines 41 to 44 in 54fb8b7

	# 'data' parameter shoud only be set if x if a formula
	# otherwise a warning will be thrown (even if data = NULL), although the plot will still be created
	# temporarily turn off warnings to avoid confusion
	options(warn = -1);

... but it then restores the default 0, rather than whatever value had been set:

package-BoutrosLab-plotting-general/R/create.histogram.R

Lines 67 to 68 in 54fb8b7

	# turn warnings back on
	options(warn = 0);

It should instead capture and restore the original value:

original.warn <- getOption('warn');
options(warn = -1);

...

options(warn = original.warn);