R/tableplot_checkFromTo.R

In tabplot: Tableplot, a Visualization of Large Datasets

tableplot_checkFromTo <- function(from, to)
{
	if (class(from)[1]!="numeric") stop("<from> is not numeric")
	if (class(to)[1]!="numeric") stop("<to> is not numeric")
	if (from < 0 && from > 100) stop("<from> is not a number in [0, 100]")
	if (to < 0 && to > 100) stop("<to> is not a number in [0, 100]")
	if (from >= to) stop("<from> is not smaller than <to>")
	return()
}