/pkg/R/tableplot_checkScales.R

 1#' Function to check the tableplot argument: scales
 2#'
 3#' @aliases tableplot_checkScales
 4#' @param scales scales
 5#' @return scales
 6#' @export
 7tableplot_checkScales <- function(scales) {
 8	if (length(setdiff(scales, c("auto", "lin", "log")))>0) stop("<scales> should consist of auto, lin and log")
 9	return(scales)
10}