Nothing
tableplot_checkDecreasing <- function(decreasing, sortCol){
if (class(decreasing)[1]!="logical") stop("<decreasing> is not a logical")
if (length(decreasing)==1) {
decreasing <- rep(decreasing, length(sortCol))
} else if (length(decreasing) != length(sortCol)) stop("<sortCol> and <decreasing> have different lengths")
decreasing
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.