Nothing
tableplot_checkBins <- function(nBins, nDat) {
if (!is.numeric(nBins)) stop("<nBins> is not numeric")
if (nBins > nDat) {
if (nDat > 1000) {
warning("Setting nBins (",nBins,") to 1000")
nBins <- 1000
} else {
warning("Setting nBins (",nBins,") to number of rows (", nDat, ")")
nBins <- nDat
}
}
return(nBins)
}
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.